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NOMENCLATURE 

a,  coefficients  for   the  turret   shape  polynomial   in  x-direction 

b  coefficients   for   the   turret   shape  polynomial    in  the  9-direction 

L  extent  of   turret   in  x-direction;    for    |x|    >  t  radius  of  fuselage  is  R 

L  the  distance  2L   is   separation  between  turrets 

OPL  optical   path  length 

PD  phase  distortion;    nondimensional 

r  radial  distance 

Pw  fuselage  radius 

W.  weighting   factor  for   i-th  beam  direction 

x  axial  distance   in  cylindrical   coordinates 


*M 


axial  location  of  mirror  center 


z  reference  direction  to  measure  angles  within  beam  cross  section 

2  2 

5  shorthand   notation  for  1  -  M 

y  beam  elevation  angle 

£  nondimensional  turret  height;  R~  is  reference  length 

EL^  radial  location  of  mirror  center 

T]  polar  coordinate  used  to  locate  points  or  rays  within  the  beam 

9  variable  in  cylindrical  coordinates  used  to  describe  turret  shape 

$  perturbation  potential  function;  also,  beam  azimuth  angle. 


I .   INTRODUCTION 


A  computer  program  is  described  here  which  obtains  the  optimum  shape 
of  a  laser  turret  to  minimuze  optical  distortion  of  a  laser  beam.   The 
analysis  and  optimization  procedure  on  which  the  program  is  based  are 
described  in  detail  in  Ref .  1. 

The  turret  is  assumed  to  be  situated  on  a  cylindrical  fuselage,  as 
shown  in  Figure  1.   The  details  of  the  turret  geometry  are  shown  in 
Figure  2.   The  shape  of  the  turret  is  defined  by  the  product  of  two 
polynomials,  so  that 

r  =  £f(x)  f(9)  (1) 

where 

f(x)  =  1  +  a  x  +  a2  x2  +. . .+  a  xk       (2) 
and 

(3) 


f(8)  =  i  +  b\e2+...+  b  ep 

2  P 


where  p  is  the  sequence  of  even  numbers  2,  4,  6  ...  . 


Figure  1.    Small  Perturbation  Laser  Turret  on  a  Cylindrical  Fuselage, 


Figure  2.   Turret  Geometry. 

Optional  distortion  is  introduced  into  a  laser  beam  propagating 
through  the  flow  field  surrounding  the  turret;  see  Ref .  2.   For  purposes 
of  this  analysis,  the  flow  is  assumed  to  be  compressible  and  inviscid 
and  is  governed  by  the  small  perturbation  equation 


xx    rr    r     2 


=  0 


(4) 


The  (+)  sign  applies  to  subsonic  flow  and  the  (-)  sign  applies  to  super- 
sonic flow.   The  solution  of  equation  (4)  is  valid  for  small  perturbation 
subsonic  and  supersonic  flow.   For  transonic  flow  the  analysis  is  nonlinear, 
even  for  small  perturbations,  and  is  not  considered  here.   Reference  2 
discusses  the  formulation  of  the  aerodynamics  model  for  a  variety  of 
geometrical  shapes  and  flow  regimes. 

From  the  solution  of  the  potential  equation,  the  perturbation 
velocities,  u  and  v,  may  be  calculated  anywhere  in  the  flow  field.   From 
knowledge  of  the  flow  field  the  optical  path  length  on  any  ray  of  a  laser 


beam  is  calculated.   The  laser  beam  is  propagated  through  the  flow  field 
as  shown  in  Figure  3.   Taking  the  center  of  the  beam  as  the  reference 
ray,  the  difference  in  optical  path  lengths,  OPL,  between  a  specified  ray 
and  the  ray  on  the  beam  center  is  calculated  as 


AOPL  =  OPL.  -  OPL. 
3  i 


(5) 


where  the  subscript  i  corresponds  to  the  reference  ray  and  j  corresponds 
to  the  particular  ray  being  considered.   The  phase  distortion,  PD,  is 
defined  as  AOPL/X  where  X   is  the  wave  length  of  radiation;  Refs.  3  and  4 
discuss  OPL  and  PD  in  more  detail. 


LASER  BEAM 


PRIMARY  MIRROR 


<t>*  AZIMUTH 
7  = ELEVATION 


'00 


REFERENCE 
AXES 


Figure  3.        Laser  Beam  Orientation 


Phase  distortion,  PD,  is  calculated  numerically  at  several  radial 

and  angular  locations  within  the  beam  as  shown  in  Figure  4.   The  sum  of 

2 
(PD)   over  all  calculation  points  for  several  beam  orientations  is  con- 
sidered to  provide  a  measure  of  the  "goodness"  of  the  turret  design. 
The  coefficients  of  the  turret  shape  functions  of  equations  2  and  3  are 
then  determined  to  minimize 


SUMPD  = 


orientations 


W.       Z  Z 

l 

radii     angles 


(PDr   (6) 


where  W.  is  a  weighting  factor  applied  to  the  i-th  beam  orientation.   The 
COPES/CONMIN  optimization  program  (Ref.5)  is  used  to  provide  the  turret 
optimization  capability. 


ray  i 


TYPICAL  PHASE 
DISTORTION 
CALCULATION 
POINTS 

BEAM 

CROSS-SECTION 


Figure  4.     Phase  Distortion  Calculation  Within   the  Laser  Beam, 


Finally,  the  optical  aberrations  are  calculated  for  each  beam 
orientation  in  terms  of  Zernicke  coefficients.   This  provides  a  measure 
of  the  turret  design  in  terms  familiar  to  optical  design  specialists;  see 
Ref.  6. 

In  the  following  sections,  the  program  organization,  data  transfer 
mechanism,  input  data  and  output  are  described.   Test  cases  are  provided 
to  help  in  making  the  program  operational.   Additional  program  details  and 
a  FORTRAN  listing  are  included  in  the  Appendices. 
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II.  PROGRAM  ORGANIZATION 
The  basic  program  organization  is  shown  in  block  diagram  form  in 
Figure  5.   The  COPES  program  is  the  main  driver  which  calls  the  optimi- 
zation program,  CONMIN,  and  the  turret  analysis  program;   COPES  is  an 
accronym  for  COntrol  Program  for  Engineering  Synthesis,  and  CONMIN  is  an 
accronym  for  CONs trained  function  MINimization.   Both  are  general  purpose 
programs  which  may  be  applied  to  a  wide  variety  of  engineering  design 
problems   (Ref.  7).   If  only  the  analysis  of  a  specific  turret  shape  is 
desired,  this  may  be  done  without  COPES/CONMIN  by  using  a  very  simple 
main  program.   Alternatively,  COPES/CONMIN  may  be  used  for  a  single 
analysis  by  specifying  the  proper  value  of  a  single  control  parameter  in 
the  input  data. 


MAIN 
STAND  ALONE 


Figure  5.   Program  Organization. 

The  combined  program  containing  COPES,  CONMIN  and  laser  turret 
analysis  is  referred  to  by  the  accronym  LASTOP,  for  LASer  Turret  Optimizatio 

The  entire  program  is  written  in  FORTRAN  IV  and  has  been  executed, 
without  modification,  on  IBM  360/67  and  CDC  7600  computers.   The  program 
executes  in  approximately  50  octal  words  of  storage  on  a  CDC  computer. 
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The  program  reads  from  unit  5  and  writes  on  unit  6.   Units  20  and  40  are 
scratch  files.   (These  file  numbers  may  be  changed  by  changing  two  cards 
at  the  beginning  of  the  COPES  program.)   Execution  times  on  a  CDC  7600 
computer  are  approximately  0.3  and  1.0  CPU  seconds  for  subsonic  and 
supersonic  flow  respectively  for  the  analysis  of  one  beam  orientation. 
In  a  typical  design  optimization  run,  fifteen  beam  orientations  may  be 
considered.   Assuming  fifty  candidate  designs  are  analyzed  before  the 
optimum  is  obtained,  the  total  CPU  time  is  from  200  to  750  seconds. 

To  execute  the  turret  optimization  program,  the  user  must  be 
familiar  with  the  mechanism  by  which  data  are  transferred  between  analysis 
and  design  programs.   This  is  the  subject  of  the  following  section. 
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III.  DATA  TRANSFER 

To  couple  the  analysis  and  optimization  programs  for  automated  design 
optimization,  pertinent  data  must  be  transferred  between  programs.   This 
is  done  by  means  of  a  single  labeled  common  block.  To  execute  the  program, 
it  is  necessary  for  the  user  to  know  what  information  is  transferred  and 
the  location  in  common  of  that  information.   This  section  defines  the  data 
to  be  transferred  and  identifies  their  location  within  the  common  block. 

The  variables  contained  in  the  "GLOBAL"  common  block  are  listed  below; 
the  terms  have  the  following  meaning: 

LOCATION  -  The  physical  location  of  the  variable  in  the  common  block. 
For  example,  the  polynomial  coefficient  a.,  is  in  location 

it 

2   while  a  is  in  location  3.  The  usual  design  objective 
(phase  distortion),  SUMPD2,  is  in  global  location  169. 
TYPE     -  The  purpose  of  the  variable  in  design  optimization.   D  =  design 
variable,  S  =  sensitivity  variable,  0  =  objective  function  and 
C  =  constraint  function.  Note  that  a  sensitivity  variable  may 
be  a  design  variable  if  this  is  meaningful.   For  example,  the 
direction  of  minim  vim  phase  distortion  may  be  found  by  consider- 
ing only  one  beam  orientation  and  treating  the  azimuth  angle 
(location  108)  and  elevation  angle  (location  78)  as  design 
variables.   Similarly,  objective  and  constraint  functions  are 
interchangeable.   For  example,  the  minimum  turret  half-length 
(location  21)  may  be  found  with  an  upper  bound  on  phase  distortio 
(location  169).   Under  special  circumstances,  the  objective 
function  may  also  be  a  design  variable.   For  example,  the 
maximum  turret  height  (location  76)  may  be  Spught,  subject  to  a 
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constraint  on  maximum  phase  distortion  (location  169) . 
Because  the  turret  height  is  intended  as  a  design  variable, 
it  must  also  be  a  design  variable  here  because  it  only  ap- 
pears on  the  right-hand  side  of  equations  in  the  program. 

FORTRAN  -  The  FORTRAN  name  of  the  variable  used  in  the  program. 

MATH    -  The  mathematical  symbol  for  the  variable  (used  in  Ref.  1). 

DEFINITION  -  Physical  meaning  of  the  variable. 
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LOCATION    TYPE    FORTRAN 


MATH 


DEFINITION 


1-20 
21 

22 


ABAR(20) 
ACL 

AKPRLM 


171  D,S  THMAX 

172  S  WAVEL 
173-202  S  WGHTK30) 

203  S  XM 


k' 


23 

D,S 

AL 

I 

24-53 

S 

AMACHK30) 

M 

OS 

54-73 

D 

BBAR(20) 

b. 

i 

74 

S 

DENRTO 

p/i 

75 

S 

DENGAM 

Y 

76 

D,S 

EPS 

£ 

77 

S 

EPSM 

£ 

m 

78-107 

S 

GAMMAK30) 

Y 

'SL 


108-137 

S 

PHIK30) 

4> 

.  138 

S 

RFUS 

Ro 

139-168 

C 

SLOPEX(30) 

f  (x) 

169 

0 

SUMPD2 

£(PD) 

170 

D,S 

TDENRT 

P/PeT 

MAX 


X 

W. 

i 


Polynomial  coefficients  on  f (x) , 

Turret  half -spacing  for  Fourier 
analysis. 

Constant  in  phase  distortion  cal- 
culations. 

Turret  half  length  divided  by  RFUS 

Mach  number  associated  with  i-th 
beam  orientation. 

Polynomial  coefficients  on  f(6). 

Density  of  air  divided  by  density 
of  air  at  sea  level. 

Exponent  in  pressure-density  re- 
lationship. 

Turret  height  divided  by  RFUS. 

Mirror  center  height  divided 
by  RFUS. 

Elevation  angle  of  i-th  beam 
orientation. 

Azimuth  angle  of  i-th  beam 
orientation. 

Fuselage  radius  (meters)  . 

Slope  of  turret  surface  in  stream- 
wise  direction. 

Sum  of  squares  of  all  calculated 
phase  distortions. 

Density  of  air  inside  canopy 
divided  by  density  of  air  at  sea 
level. 

Half  angle  of  turret  (degrees) . 

Wave  length  of  radiation  (meters) . 

Weighting  factor  on  i-th  beam 
orientation. 

X-coordinate  of  center  of  mirror. 
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IV.  PROGRAM  DATA 

The  data  for  laser  turret  analysis  and  optimization  are  separated 
into  two  parts.   First  are  the  control  program  (COPES)  data  which  control 
the  analysis  and  design  operations.   These  are  followed  by  the  turret 
analysis  data. 

When  the  program  is  being  made  operational  or  when  only  analysis  is 
desired,  the  turret  analysis  program  may  be  run,  stand-alone  using  a 
simple  driver  program  given  in  the  subsection  on  laser  turret  analysis. 
In  this  case,  the  COPES  data  are  omitted,  and  only  the  turret  analysis 
data  are  provided. 

Appendix  C  contains  convenient  data  forms  for  both  the  COPES  and  the 
turret  analysis  data.  The  reader  may  want  to  copy  these  forms  for  use  in 
preparing  a  problem. 
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A.   COPES  -  A  CONTROL  PROGRAM  FOR  ENGINEERING  SYNTHESES 

The  COPES  program  is  a  general  purpose  program  to  aid  in  design 
optimization  and  is  not  limited  to  the  specific  application  for  which  it 
is  used  here.   The  user  must  provide  an  analysis  program  in  subroutine 
form,  which  in  this  case  is  the  analysis  of  a  laser  turret  in  subsonic 
and  supersonic  flow.   The  principal  requirements  are  that  the  analysis 
program  be  coded  in  FORTRAN  and  be  segmented  into  input,  execution  and 
output  and  that  all  design  information  be  stored  in  a  single  labeled 
common  block  called  GLOBCM. 

The  COPES  program  provides  four  specific  capabilities: 

1.  Simple  analysis  -  just  as  if  COPES  was  not  used. 

2.  Optimization  -  minimization  or  maximization  of  one  calculated 
function  with  limits  imposed  on  other  functions. 

3.  Sensitivity  analysis  -  the  effect  of  changing  one  or  more  design 
variables  on  one  or  more  calculated  functions. 

4.  Two-variable  function  space  -  analysis  for  all  specified 
combinations  of  two  design  variables. 

COPES  utilizes  the  general  purpose  optimization  program  CONMIN 
(Ref.  2)  for  optimization,  and  this  is  the  capability  of  primary  interest 
here.   Data  requirements  for  options  3  and  4  are  included  for  completeness. 

To  better  understand  the  COPES  data  requirements,  the  following  defini- 
tions are  useful: 

Design  Variables  -  Design  variables  are  those  parameters  which  the 
optimization  program  is  allowed  to  change  in  order  to  improve  the  design. 
Design  variables  appear  only  on  the  right-hand  side  of  an  equation  in  the 
analysis  program.   COPES  considers  two  types  of  design  variables,  independent 
and  dependent.   If  two  or  more  variables  are  always  required  to  have  the 
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same  value  or  be  in  a  constant  ratio,   one  is  the  independent  variable 
while  the  remaining  are  dependent  variables.   For  example,  if  the  turret 
shape  polynomials  are  required  to  be  the  same  in  both  the  x  and  9  directions, 
the  coefficients  a.  may  be  independent  variables,  and  the  b.  may  be  dependent 
variables.   In  this  example,  the  total  number  of  design  variables  will  then 
be  twice  the  number  of  independent  design  variables. 

Objective  Function  -  The  parameter  which  is  to  be  minimized  or  max- 
imized during  optimization  is  an  objective  function.  Included  are  parameters 
calculated  as  a  function  of  specified  design  variables  during  a  sensitivity 
or  two-variable  function  space  study.   Objective  functions  always  occur  on 
the  left  side  of  an  equation  unless  the  objective  function  is  also  a  design 
variable. (The  turret  height  may  be  maximized  as  an  objective  function  if  it 
is  also  a  design  variable.   Id  this  way,  the  maximum  height  is  found  for 
which  no  constraints  are  violated.)   An  objective  function  may  be  linear  or 
non-linear  and  implicit  or  explicit  but  must  be  a  continuous  function  of 
the  design  variables  to  be  meaningful. 

Constraint  -  Any  parameter  which  must  not  exceed  specified  bounds  for 
the  design  to  be  acceptable  is  a  constraint.   Constraint  functions  always 
appear  on  the  left  side  of  an  equation.   Just  as  for  objective  functions, 
constraints  may  be  linear  or  non-linear  and  implicit  or  explicit  but  must 
be  continuous  functions  of  the  design  variables. 

The  COPES  program  reads  from  unit  5  and  writes  output  on  unit  6.   Units 
20  and  40  are  used  as  scratch  files.   The  scratch  file  numbers  may  be 
changed  by  changing  two  cards  at  the  beginning  of  the  COPES  program. 

The  data  required  to  run  the  COPES  program  are  now  defined.   All  GLOBAL 
LOCATION  NUMBERS  refer  to  the  location  of  the  specified  variable  in  the 
labeled  common  block,  GLOBCM.   The  pertinent  variables  and  their  global 
locations  are  listed  in  the  section  entitled  DATA  TRANSFER. 
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The  data  are  segmented  into  "blocks"  for  convenience.   All  formats 
are  alphanumeric  for  TITLE,  END,  and  STOP  cards;  F10  for  real  data;  and 
110  for  integer  data.   Comment  cards  may  be  inserted  anywhere  in  the  data 
stack  prior  to  the  END  card  and  are  identified  by  a  dollar  sign  ($)  in 
Column  1.   The  COPES  data  stack  must  terminate  with  an  end  card  containing 
the  word  "END"  in  Columns  1-3. 

Data  coding  forms  are  provided  in  Appendix  C. 
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COPES 

DATA  BLOCK     A 

DESCRIPTION:   Title  Card 


FORMAT  AND  EXAMPLE 


12       3 

4 

5 

6 

7 

8 

FORMAT 

TITLE 

20A4 

LASER  TURRET  OPTIMIZATION 

FIELD  CONTENTS 

1-8  Any  80  character  title 

REMARKS 
1)   Program  is  terminated  by  the  word  'STOP'  in  columns  1-4. 
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COPES 


DATA  BLOCK 


DESCRIPTION  :   Program  Control  Parameters 


FORMAT  AND  EXAMPLE 


1 

2 

3 

4 

_5 

6 

7 

8 

FORMAT 

MP.AT.r. 

NTW 

NTSV 

N2VAR 

TPNPTIT 

TPSFNS 

IP2ZAR 

7110 

2 

* 

3 

2 

0 

0 

1 ■ 

0 

' 

FIELD 


CONTENTS 

NCALC:   Calculation  control 

0  -   Read  input  and  stop.   Data  of  blocks  A-B  ar 

required.   Remaining  data  are  optional. 

1  -   One  cycle  through  program.   Data  of  blocks 

A-B  are  required.   Remaining  data  are  optio 

2  -   Optimization.   Data  of  blocks  A-I  are  requi: 

Remaining  data  are  optional. 

3  -   Sensitivity  analysis.   Data  of  blocks  A-B  ai 

J-K  are  required.   Remaining  data  are  optioi 

4  -   Two  variable  function  space.  Data  of  blocks  I 

and  L-0  are  required.   Remaining  data  are 

optional. 
NDV:    Number  of  independent  design  variables  in 

optimization. 
NSV:    Number  of  variables  on  which  sensitivity 

analysis  will  be  performed. 
N2VAR:   Number  of  objective  functions  in  a  two 

variable  function  space  study. 
IPNPUT:   Input  print  control 

0  -  Print  card  Images  plus  formated  print  of  inp 

1  -  Formated  print  of  input  only. 

2  -  No  print  of  input. 

IPSENS:   Print  control  for  sensitivity  analysis.   If 
IPSENS.GT.O  detailed  print  will  be  called  fl 
at  each  step  in  the  sensitivity  analysis. 
DEFAULT  =  No  print. 

IP2VAR:  Print  control  for  two  variable  function  spaci 
study.  If  IP2VAR.GT.0  detailed  print  will  i 
called  for  at  each  step  Ceach  X-Y  combinatioi 
DEFAULT  =  No  print. 
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REMARKS 

1)  Field  1  determines  program  execution. 

2)  Fields  2-4  identify  which  information  will  be  read  in  subsequent 
data  blocks. 


22 


COPES 


DATA  BLOCK 


Omit  if  NDV  =  0  in  Block  A 


DESCRIPTION  :   Integer  Optimization  Control  Parameters 


FORMAT  AND  EXAMPLE 


1 

2  * 

3 

4 

5 

6 

7 

8 

FORMAT 

IPRINT 

ITMAX 

ICNDIR  |  NSCAL 

ITRM 

LINOBJ 

NACMX1 

NFDG     8110 

5 

0 

0 

5 

0 

0 

0 

0 

FIELD 


CONTENTS 


2 
3 
4 


IPRINT:   Print  control  used  in  optimization  program, 
CONMIN. 

0  -   No  print  during  optimization. 

1  -   Print  initial  and  final  optimization  information. 

2  -   Print  above  plus  function  value  and  design 

variable  values  at  each  iteration. 

3  -   Print  above  plus  constraint  values,  direction 

vector  and  move  parameter  at  each  iteration. 

4  -   Print  above  plus  gradient  information. 

5  -   Print  above  plus  each  proposed  design  vector, 

objective  function  and  constraints  during  the 

one-dimensional  search. 
ITMAX:    Maximum  number  of  optimization  iterations  allowed. 

DEFAULT  =20. 
ICNDIR:   Conjugate  direction  restart  parameter. 

DEFAULT  -  NDV+1. 
NSCAL:    Scaling  parameter.   GT.O  -  Scale  design 

variables  to  order  of  magnitude  one  every  NSCAL 

iterations.   LT.O  -  Scale  design  variables  accord- 
ing to  scaling  values  input. 

DEFAULT  =  No  scaling. 
ITRM:    Number  of  subsequent  iterations  which  must  satisfy 

relative  or  absolute  convergence  criterion  before 

optimization  process  is  terminated. 

DEFAULT  =3. 
LINOBJ:   Linear  objective  function  identifier.   If  the 

optimization  objective  is  known  to  be  a  linear 

function  of  the  design  variables,  set  LINOBJ  =  1. 

DEFAULT  =  Non-Linear. 
NACMXl:   One  plus  the  maximum  number  of  active  constraints 

anticipated. 

DEFAULT  =  NDV+2. 
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FIELD 


CONTENTS 


NFDG: 

0  - 

1  - 


2  - 


Finite  difference  gradient  identifier. 

All  gradient  information  is  computed  by  finite 

difference. 

Gradient  of  objective  is  computed  analytically. 

Gradients  of  constraints  are  computed  by  finite 

difference. 

All  gradient  information  is  computed  analytically, 


REMARKS 


1)   For  LASER  TURRET  OPTIMIZATION,  the  value  of  LINOBJ  and  NFDG  should 

always  be  zero.   The  value  of  NSCAL  =  5  is  suggested  and  ITRM  =  NACMXl 
should  be  used.   The  value  of  IPRINT  may  be  reduced  when  the  user  is 
familiar  with  the  optimization  output. 


-  0 
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COPES 

DATA  BLOCK    D     Omit  if  NDV  =  0  in  Block  A 

DESCRIPTION  :   Floating  Point  Optimization  Program  Parameters 


FORMAT  AND  EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

FDCH 

FDCHM 

CT 

CTMIN 

CTL 

CTLMIN 

THETA 

PHI 

|8F10 

_0.0 

.  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0  . 

1 

DELFUN 

DAB FUN 

|  2F10 

0.0 

0.0 

1 

Note:   Two  cards  of  data  are  read  here. 


FIELD 


CONTENTS 


FDCH:   Relative  change  in  design  variables  in  calculating 
finite  difference  gradients. 
DEFAULT  =  0.01. 
FDCHM:   Minimum  absolute  step  in  finite  difference  gradient 
calculations. 
DEFAULT  =  0.001. 
CT:    Constraint  thickness  parameter. 

DEFAULT  =  -0.05. 
CTMIN:  Minimum  absolute  value  of  CT  considered  in  the 
optimization  process. 
DEFAULT  =  0.004. 
CTL:   Constraint  thickness  parameter  for  linear  and  side 
constraints. 
DEFAULT  =  -0.01. 
CTLMIN:   Minimum  absolute  value  of  CTL  considered  in  the 
optimization  process. 
DEFAULT  =  0.001. 
THETA:   Mean  value  of  push-off  factor  in  the  method  of  feasiblt 
d  ir  ec  t  ions . 
„  DEFAULT  =1.0. 
PHI:   Participation  coefficient,  used  if  one  or  more  con- 
straints are  violated. 
DEFAULT  =5.0. 
DELFUN:   Minimum  relative  change  in  objective  function  to 
indicate  convergence  of  optimization  process. 
DEFAULT  =  0.001. 
DABFUN:   Minimum  absolute  change  in  objective  function  to  in- 
cate  convergence  of  the  optimization  process. 
DEFAULT  =  0.001  times  the  initial  objective  value. 
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REMARKS 

1)   For  LASER  TURRET  OPTIMIZATION  default  values  of  these  parameters  usually 
work  well. 
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COPES 


DATA  BLOCK    E    Omit  if  NDV  =  0  in  Block  A 


DESCRIPTION  :   Total  Number  of  Design  Variables,  Design  Objective 
Identification  and  Sign  on  Design  Objective. 


FORMAT  AND  EXAMPLE 


1 

2  * 

3 

4 

5 

6 

7 

8 

FORMAT 

NDVTOT 

IOBJ 

SGNOBJ 

1 

|2I10,FD 

0 

163      • 

-1.0 

1 

FIELD 


CONTENTS 


1  NDVTOT:   Total  number  of  variables  linked  to  the 

design  variables.   NDVTOT  must  be  greater 
than  or  equal  to  NDV.   This  option  allows 
two  or  more  parameters  to  be  assigned  to  a 
single  design  variable.   The  value  of  each 
parameter  is  the  value  of  the  design  variable 
times  a  multiplier  which  may  be  different  for 
each  parameter. 
DEFAULT  =  NDV. 

2  IOBJ:    Global  variable  number  associated  with  objective 

function  in  optimization. 

3  SGNOPT:    Sign  used  on  objective  of  optimization  to  identify 

whether  function  is  to  be  maximized  or  minimized. 
+1.0  indicates  maximization.   -1.0  indicates 
minimization. 
DEFAULT  =  -1.0. 

REMARKS 

1)   For  LASER  TURRET  OPTIMIZATION,  the  numbers  used  in  this  example  are 

correct  if  phase  distortion  is  to  be  minimized.    If  phase  distortion  ■ 
is  to  be  maximized  set  SGNOPT  =  +1.0. 


27 


COPES 


DATA  BLOCK 


Omit  if  NDV  =  0  in  Block  A 


DESCRIPTION  :   Design  variable  bounds,  initial  values  and  scaling  factors. 


FORMAT  AND  EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

VLB 

VUB 

X 

SCAL 

Iafiq 

-3.0 

3.0 

0.0 

0.0 

I 

Note;   Read  one  card  for  each  of  the  NDV  independent  design  variables. 
FIELD  CONTENTS 


VLB; 

VUB 

X: 


SCAL: 


Lower  bound  on  the  design  variable. 
Upper  bound  on  the  design  variable. 
Initial  value  of   the  design  variable. 
If   X   is  non-zero,    this  will   supercede 
the  value  initialized   by  subroutine 
ANALIZ. 

Design  variable  scale  factor.      Not  used 
if  NSCAL.GE.O   in  Block  C. 


REMARKS 

1)   For  LASER  TURRET  OPTIMIZATION,  the  values  used  in  this  example 
are  suggested. 
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COPES 


DATA  BLOCK 


Omit  if  NDV  =  0  in  Block  A. 


DESCRIPTION  :   Design  Variable  Identification 


FORMAT  AND  EXAMPLE 


1 

2  * 

3 

A 

5 

6 

7 

8 

FORMAT 

NDSGN 

IDSGN 

AMULT  1 

fcllO.FX) 

1 

26 

i.o ! 

Note:   Read  one  card  for  each  of  the  NDVTOT  Design  Variables, 


FIELD 


CONTENTS 


1 
2 

3 


NDSGN 
IDSGN 
AMULT 


Design  variable  number  associated  witi 

the  variable. 

Global  variable  number  associated  witi 

the  variable. 

Constant  multipliter  on  the  variable. 

The  value  of  the  variable  will  be  the 

value  of  the  design  variable,  NDSGN 

times  AMULT. 

DEFAULT  =1.0. 
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COPES 


DATA  BLOCK    H     Omit  if  NDV  =  Q  in  Block  A 
DESCRIPTION  :   Number  of  sets  of  constrained  parameters. 


FORMAT  AND  EXAMPLE 


1 

2  * 

3 

4 

5 

6 

7 

8 

FORMAT 

NCONS 

1 

110 

1 

t 

1 

FIELD 


CONTENTS 


REMARKS 


NCONS:   Number  of  constraint  sets  in  the  optimi- 
zation problem. 


1)   If  two  or  more  adjacent  parameters  in  the  Global  common  block  have  the 
same  limits  imposed,  these  are  part  of  the  same  constraint  set. 
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COPES 


DATA  BLOCK 


I     Omit  if  NDV  =  0  in  Block  A  o  r  if  NCONS  =  0  in  Block  M. 


DESCRIPTION  ;   Constraint  Identification  and  Bounds. 


FORMAT  AND  EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

ICON 

JCON 

LCON 

1  3-nn 

224 

234 

1 

J 

BL 

SCAL1 

BU 

SCAL2 

4F10 

-.3 

.3 

.3 

.3 

\ 

Note:   Read  two  cards  for  each  of  the  NCONS  constraint  sets. 


FIELD 
1 
2 


CONTENTS 

ICON:   First  Global  number  corresponding  to 

the  constraint  set. 
ICON:   Last  Global  number  corresponding  to  the 

constraint  set. 

DEFAULT  =  ICON. 
LCON:   Linear  constraint  identifier  for  this  set 

of  constrained  variables.   LCON  ■  1  indi- 
cates linear  constraints. 

DEFAULT  =  0  =  Nonlinear  constraint. 
BL:    Lower  bound  on  the  constrained  variables. 

Value  less  than  -1.0E+15  is  assumed  unbounded, 
SCAL1:   Normalization  factor  on  lower  bound. 

DEFAULT  =  Max  of  ABS(BL),  0.1. 
BU:    Upper  bound  on  the  constrained  variables. 

Value  greater  than  1.0E+15  is  assumed 

unbounded. 
SCAL2:    Normalization  factor  on  upper  bound  . 

DEFAULT  =  Max  of  ABS(BU),  0.1. 


REMARKS 

1)   The  normalization  factors  should  usually  be  defaulted. 


1 
2 

3 
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COPES 


DATA  BLOCK 


Omit  if  NSV  =  0  in  Block  A 


DESCRIPTION  :   Sensitivity  Objectives. 


FORMAT  AND  EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

NSOBJ 

110 

4 

JL 

NSN1 

NSN2 

NSN3 

NSN4 

1  8110 

26 

27 

4] 

42 

1 

Note:  Two  or  more  cards  are  read  here. 


FIELD 


CONTENTS 


1-8 


NSOBJ: 


NSNI: 


Number  of  separate  objective  functions 
to  be  calculated  as  functions  of  the 
sensitivity  variables. 

Global  variable  number  associated  with 
the  sensitivity  objective  functions. 


REMARKS 

1)  More  than  eight  sensitivity  objectives  are  allowed.   Add  data  cards  as 
required  to  contain  data. 
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COPES 


DATA  BLOCK    K    Omit  if  NSy  =  Q  in  Block  A 
DESCRIPTION  :   Sensitivity  Variables 


FORMAT  AND  EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

I SENS    NSENS 

12110 

26j      4| 

! 

SNS1     SNS2 

SNS3 

SNS4 

.  . 

... 

|  8F10 

2.0 

i.  or 

3.0 

4.C 

1          1 

Note;   Read  one  set  of  data  for  each  of  the  NSV  sensitivity  variables. 
Note:   Two  or  more  cards  are  read  here. 


FIELD 

1 

2 

1-8 

REMARKS 


CONTENTS 

ISENS:   Global  variable  number  associated  witl 

the  sensitivity  variable. 
NSENS:   Number  of  values  of  the     sensitivil 

variable  to  be  considered. 
SNSI:   Values  of  the  sensitivity  variable,  fc 

J  =  1,  NSENS.   J  =  1  corresponds  to 

nominal  value. 


1)   More  than  eight  values  of  the  sensitivity  variable  are  allowed.  Add 
data  cards  as  required  to  contain  data. 
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COPES 

DATA  BLOCK 


Omit  if  N2VAR  =  0  in  Block  A 


DESCRIPTION  :   Two  variable  function  space  control  parameters. 


FORMAT  AND  EXAMPLE 


1 

2  •      3 

4 

5 

6 

7 

8 

FORMAT 

N2VX 

M2VX   1  N2VY 

M2VY 

4110 

26 

5       27 

5 

f 

FIELD 


CONTENTS 


N2VX 
M2VX 
N2VT 
M2VY 


Global  location  of  X-variable  in  two- 
variable  function  space. 
Number  of  values  of  X-variable  to  be 
considered. 

Global   location  of  Y-variable  in  two- 
variable  function  space. 
Number  of  values  of  Y-variable  to  be 
considered. 
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COPES 


DATA  BLOCK    M    Omit  if  N2VAR  =  0  in  Block  A 

DESCRIPTION  ;   Objective  Functions  of  Two-variable  Function  Space  Study. 


FORMAT  AND  EXAMPLE 


1 

2  • 

,  3 

A 

5 

6 

7 

8 

FORMAT 

NZ1 

NZ2 

NZ3 

NZ4 

.  .  . 

•   •   • 

8110 

7 

4 

21 

67 

1 

FIELD 


CONTENTS 


1-8 


NZI:   Global  variable  location  corresponding 
to  ITH  function  of  X  and  Y  in  two 
variable  function  space. 


REMARKS 


1=1,  NZVAR,  where  NZVAR  is  read  in  Bl 


1)   More  than  eight  objective  functions  are  allowed.   Add  data  cards  as 
required  to  contain  data. 


35 


COPES 


DATA  BLOCK 


N 


Omit   if   N2VAR  =   0   in  Block  A 


DESCRIPTION  :      Values  of   X-variable   in  Two-variable  Function  Space  Study. 


FORMAT  AND   EXAMPLE 


2  • 


8 


FORMAT 


XI 


X2 


X3 


X4 


8F10 


0.5: 


1.0 


1.5 


2.0 


FIELD 


CONTENTS 


1-8 


REMARKS 


XI:      Values  of  X-variable  to  be  considered 
in  two-variable  function  space. 

1=1,   MZVX,    where  MZVX  is  read   in  Block  L. 


1)     More  than  eight  X-values  are  allowed.      Add  data  cards  as  required   to 
contain  data. 
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COPES 

DATA  BLOCK         n  Omit    if  N2VAR  =   0   in  Block  A 

DESCRIPTION  :      Values  of  Y-variable  in  two-variable  Function  Space  Study, 


FORMAT  AND  EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

Yl 

Y2 

Y3 

. 

•       • 

.    . 

8F10 

0.0 

-1.0 

1      1.0 

I 

FIELD 


1-8 


REMARKS 


CONTENTS 

YI:       Values  of  Y-variable  to   be  considered 
in  two-variable  function  space. 
1=1,   MZVY,    where  MZVY   is   read   in  Block, 


1)      More  than  eight    Y-values  are  allowed.      Add  data  cards  as  required   to 
contain  data. 
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COPES 

DATA  BLOCK    P 


DESCRIPTION  :   Copes  data  'END'  card. 


FORMAT  AND  EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

END 

3A1 

END 

I 

FIELD 


CONTENTS 


The  word  'END'  in  columns  1-3. 


1 
REMARKS 

1)  This  card  must  appear  at  the  end  of  the  COPES  data. 

2)  This  ends  the  COPES  input  data. 
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B.  LASER  TURRET  ANALYSIS 

Data  for  the  laser  turret  analysis  follow  the  COPES  data.   If  the 
general  design  capability  of  COPES  is  not  needed,  the  analysis  program 
can  be  run  by  itself  by  using  the  following  simple  main  program. 

C    MAIN  PROGRAM  FOR  STAND  ALONE  LASER  TURRET  ANALYSIS. 

C 

C  -   INPUT 

ICALC  =  1 

CALL  ANALIZ (ICALC) 


C  -  EXECUTION  AND  OUTPUT. 
ICALC  =  3 

CALL  ANALIZ (ICALC) 
STOP 
END 


If  this  main  progam  is  used,  the  COPES  and  CONMIN  routines  are  omitted,, 
and  the  COPES  dataarenot  read.   This  provides  simple  analysis  of  a  specified 
turret  and  allows  the  turret  analysis  program  to  be  tested  independently. 

The  turret  analysis  program  reads  from  unit  5  and  writes  the  output  on 
unit  6. 

The  input  data  are  segmented  into  blocks  for  convenience,  just  as  for  the 
COPES  data. 

Comment  cards  are  not  allowed  in  the  turret  analysis  data. 

Data  coding  forms  are  provided  in  Appendix  C. 
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TURRET 

DATA  BLOCK  _& 

DESCRIPTION:   Title  Card, 

FORMAT  AND  EXAMPLE 


12                  3 

4 

5 

6 

7 

.  8 

FORMAT 

TITLE 

20;A4 

LASER   TURRET   ANALYSTS 

FIELD 


1-8 


CONTENTS 


Title  :  Any  80  character  title. 
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TURRET 


DATA  BLOCK    B 


DESCRIPTION  :   Aerodynamics,  Optics  constants 


FORMAT  AND  EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

AMACH    DENRTO 

TDENRT 

DENGAM  1  AKPRIM | 

WAVEL  ] 

|  6F10 

1.25 

.25 

.25 

1.405 

.00023J 

3.4-61 

I 

FIELD 
1 
2 
3 
4 


5 
.  6 
REMARKS 


CONTENTS 

AMACH:   Freestream  Mach  number. 

DENRTO:  Freestream  air  density/ sea  level  densi 

TDENRT:  Air  density  inside  turret./ sea  level 

density 
DENGAM:  Exponent  in  pressure-density  relations! 


po     po 


AKPRIM:  Phase  distortion  constant,  k* 
WAVEL:   Wave  length  of  radiation,  X   (meters) 


1)   AMACH  is  the  freestream  MACH  number  for  all  beam  orientations  unless 
specified  otherwise  in  data  Block  N. 
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TURRET 


DATA  BLOCK    p 


DESCRIPTION  :   Turret  Geometry 


FORMAT  AND  EXAMPLE 


1 

2  * 

3 

4 

5 

6 

7 

8 

FORMAT 

RFUS 

AL 

THMAX 

ACL 

EPS 

1  5F10 

?.S 

2.0 

60. 

10. 

0.3 

i 

FIELD 
1 
2 
3 
4 


CONTENTS 
RFUS:   Fuselage  Radius  (meters) 
AL:    Turret  half  length  divided  by  RFUS. 

Half  angle  subtended  by  turret  (deg.) 


THMAX: 
ACL: 

EPS: 


Half   spacing  between  turrets  divided 

by  RFUS,    for  Fourier  Series  calculations. 

Turret  height  divided  by  RFUS  at 
x  =  r  =  0. 


REMARKS 

1)   ACL  must  be  much  larger  for  supersonic  flow  then  for  subsonic  flow 

to  avoid  interference  between  turrets.   ACL  =  5.  is  adequate  for  subsonic 
flow  calculations. 
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TURRET 


DATA  BLOCK 


DESCRIPTION:   Turret  Geometry 


FORMAT  AND  EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

MAXK   1  MAXP 

NXBC 

NTHBC 

~j 

4110 

6 

6 

2 

1 

i 

i 

FIELD 


CONTENTS 


MAXK:      Order  of  x-polynomial  shape  function. 


NXBC 


f (x)    -   1     +  ax  +   . 


a        ,    x 

maxk 


MAXP:      Order  of   polynomial   shape  function 


f(9)    =   1     +  b.,9  +   ..   b 

1  maxp 


maxp 


Number  of   sets  of  y  and  y'   boundary 
conditions   in  x-direction,    externally 
imposed. 


NTHBC:    Number  of   sets  of   8  and   9'   boundary 

conditions  in  8-direction,   externally 
imposed. 


REMARKS 


1)   The  order  plus  one  of  each  polynomial  must  be  at  least  as  great  as 
the  actual  number  of  externally  imposed  boundary  conditions. 
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TURRET 


DATA  BLOCK         E 


DESCRIPTION  :      Polynomial  coefficients  in  x-direction. 


FORMAT  AND   EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

1 

ABAR1 

.  . 

.  — 

1 

ABAR6 

9       # 

.  1  8F10 

L 

0. 

-.61111 

0. 

-.18056J 

0. 

-.006944J 

1 

FIELD 


CONTENTS 


1-8 


ABARI       Coefficient  of  x-polynomial   shape 

function,    _,    x        ,       ,    - 

f  (x)    =1      +  a_x  +  ... 

-  maxk 

maxk 


REMARKS 


1)      The  total  number  of   coefficients   equals   1  +  MAXK.      Additional  data  cards 
are  used  as  required   to  contain  the  data. 
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TURRET 


DATA  BLOCK 


DESCRIPTION  :      Geometric  boundary  conditions   in  x-direction. 


FORMAT  AND   EXAMPLE 


1 

2  " 

3 

4 

5 

6 

7 

8 

FORMAT 

X            YBC 

YPBC 

"1 

3F10 

-1. 

0. 

0. 

J 

Note:      NXBC  cards  are  required. 


FIELD 


2 
3 

REMARKS 


CONTENTS 

X:      X-location  as  fraction  of   turret  half-length,  AL, 
where  boundary  conditions   is   imposed. 

YBC:      Required  value  of   f(x)    at  x. 

YPBC:       Required  value  of  f'(x)    at  x. 


1)  The  boundary  condition  that  f(x,9)    =  EPS  at  x  =  9  =  0  is  automatically 
imposed. 

2)  If  YBC  or  YPBC   is   input  greater   than  or   equal   200.,    the  corresponding  bounda: 
condition  is  omitted,    i.e.,    if  YPBC  =  20Q.,    no  boundary  condition  is 
imposed   on  f ' (x) . 
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TURRET 

DATA  BLOCK         G 

DESCRIPTION  '•      Polynomial  coefficients   in   9 -direct ions. 

FORMAT  AND  EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

1 

BBAR6 

•  •  • 

j  8F10 

1. 

0. 

-.61114 

0. 

-.18056 

0. 

-.006944 

FIELD 


1-8 


CONTENTS 

BBARI:      Coefficient  of    9   polynomial   shape 
function,    f(Q)    =    i     +  I   q  + 

fa  9maXP 

maxp 


REMARKS 


1)      The  total  number  of   coefficients   equals  1  +  MAXP. 
cards  are  used  as  required   to   contain  the  data. 


Additional  data 
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TURRET 


DATA  BLOCK         H 


DESCRIPTION  :      Geometric  boundary  conditions   in  9-direction. 


FORMAT  AND  EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

THETA 

YBC 

YPBC 

1 

3F10 

1. 

0. 

0. 

1 

Note:      NTHBC  cards  are  required. 

CONTENTS 


FIELD 


2 
3 

REMARKS 


THETA:      6-location  divided  by  turret  half  angle, 

THMAX,   where  the  boundary  condition  is   imposed. 
YBC:  Required  value  of   f  (9)    at  THETA. 

YPBC:        Required  value  of   f '(3)    at  THETA. 


1)  The  boundary  condition  that   f(x,9)    =   EPS   at  x  =   6   =     0  is  automatically 
imposed. 

2)  If  YBC  or  YPBC   is   input  greater  than  or   equal   200.,    the  corresponding  bounds? 
condition  is  omitted,    i.e.,    if  YPBC  =    200.,   no  boundary  condition  is 
imposed  on  f '  (9)  . 

3)  Symmetry  about    9  =   0   is  automatically   imposed. 


47 


TURRET 


DATA  BLOCK    I 


DESCRIPTION  :  Mirror  location, 


FORMAT  AND  EXAMPLE 


•  i 


1 

2  • 

3 

4 

5 

6 

7 

8 

FORMAT 

EPSM             XM 

~\ 

2F10 

1.15 

0. 

FIELD 


CONTENTS 


EPSM:   Distance  from  fuselage  axis  to  mirror  center 
divided  by  RFUS. 


XM:    x-coordinate  of  mirror  center  divided  by 


RFUS 


REMARKS 


1)   Mirror  is  along  fuselage  centerline,  9=0. 
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TURRET 


DATA  BLOCK 


DESCRIPTION  r  Number  of  angular  and  radial  locations  on 
beam  where  phase  distortion  is  to  be  cal- 
culated. 

FORMAT  AND  EXAMPLE 


1 

2  • 

3 

4 

5 

6 

7 

'8 

FORMAT 

NETAI 

NRBI 

. 

!       ! 

2110 

8 

2l 

1       1 

J 

FIELD 


CONTENTS 


NETAI:   Number  of  angular  points  at  which 
phase  distortion  is  calculated. 

NRBI:   Number  of  radial  points  at  which 
phase  distortion  is  calculated. 
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TURRET 
DATA  BLOCK 
DESCRIPTION 


iL 


Angles  around  beam  at  which  phase 
distortion  is  calculated. 


FORMAT  AND  EXAMPLE 


1 

2  * 

3 

4 

5 

6 

7 

8 

FORMAT 

|  ETA1 

ETA2 

ETA3 

•  »  . 

... 

ETA6   j  . 

.   , 

.  .  < 

i  8F10 

1        ». 

45. 

90. 

225.  .  j 

FIELD 


CONTENTS 


1-8 


ETAI:  Angle  at  which  phase  distortion  is 
calculated  in  the  laser  beam. 


REMARKS 

1)  If  more  than  eight  angular  locations  are  considered,  use 
additional  data  cards  to  contain  the  data. 

2)  Phase  distortion  is  calculated  at  each  combination  of 
angular  and  radial  locations. 
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TURRET 


DATA  BLOCK   L 


DESCRIPTION  :   Radial  locations  in  beam  at  which  phase 
distortion  is  calculated. 


FORMAT  AND  EXAMPLE 


1 

2  * 

3 

4 

5 

6 

7 

8 

FORMAT 

RBI 

RB2 

•  •  • 

R24 

.  . 

.  . 

.  . 

.  . 

|  8F10 

0.025 

0.05 

1  0.1 

FIELD 


CONTENTS 


1-8 


RBI:   Radial  location  in  laser  beam  at 

which  phase  distortion  is  calculated. 


REMARKS 

1)  If  more  than  eight  radial  locations  are  considered, 
use  additional  data  cards  to  contain  the  data. 

2)  Phase  distortion  is  calculated  at  each  combination 
of  angular  and  radial  locations. 
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TURRET 

DATA  BLOCK    M 

DESCRIPTION  «   Number  of  separate  beam  orientations  to  be  analyzed. 

FORMAT  AND  EXAMPLE 


1 

2  * 

3 

A 

5 

6 

7 

"8 

FORMAT 

NBEAM 

1 

110 

10 

J 

9 

FIELD 


CONTENTS 

NBEAM:   Number  of  beam  orientations  considered  in 
the  analysis. 
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TURRET 


DATA  BLOCK   N 


DESCRIPTION  :  Beam  orientation  information. 


FORMAT  AND  EXAMPLE 


2  ' 


'8 


FORMAT 


PHI 


GAMMA 


AMACHI 


WGHT 


4F10 


30. 


45. 


1.4 


1. 


Note:   NBEAM  cards  are  required. 
FIELD  CONTENTS 


1 
2 

3 


REMARKS 


PHI:   Beam  Azimuth  angle.   Measured  from  aircraft 
nose  positive  to  the  right.   (degrees) 
GAMMA:   Beam  elevation  angle.   Measured  from  the 

horizontal  plane,  positive  upward  (degrees) 
AMACHI:   Flight  Mach  number  for  this  beam  orientation. 
May  be  different  then  AMACH  read  in  DATA 
Block  B,   DEFAULT  =  AMACH. 
WGHT:   Weighting  factor  which  multiplies  the  phase 
distortion  for  this  beam  orientation. 
Measure  of  relative  importance  to  the  design 
objective.  DEFAULT  =  1.0. 


1)  If  AMACHI  is  read  as  zero,  it  is  set  equal  to  AMACH 
read  in  DATA  Block  B. 

2)  If  WGHT  is  read  as  zero,  it  is  set  to  1.0. 

3)  This  ends  the  input  data  for  laser  turret 
analysis. 
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V.   SAMPLE  DATA 

Assume  the  turret  shown  in  Figure  1  is  to  be  analyzed  or  designed. 
The  initial  geometry  of  the  turret,  together  with  the  aircraft  flight  and 
beam  orientation  information,  is  listed  here. 
A.  GEOMETRY 

R  =  2.5  meters    =   fuselage  radius. 

e  ■  0.3  =   turret  height  relative  to  Rn. 

I     m   2.0  =   turret  half-length  relative  to  R  . 

L  =  10.0  =   turret  half -spacing  for  Fourier  series  approx. 

9    =  60.0  degrees  =  turret  half  angle. 

max  ° 

f(x)   =  1.0  -  0.6111  lx2  -  0.180   56x     -  0.006944  x6  -   shape  function  in  X. 

f(8)   =  f(x)  =        shape  function  in   9    [initially  the  same  as  f(x)]. 

Boundary  conditions   imposed   in  this   example  are  that  f(x)    =  f ' (x)    =  0  at  x/l  - 

+1.0,    and  f(9)   =   f*(9)    =   0  at   8/9  =   1.0.      The  boundary  condition   that 

max 

f(x,9)  =  0.3  =£atx=9=0is  automatically  imposed  by  the  program. 

A  total  of  five  boundary  conditions  is  imposed  on  f (x)  so  that  a  -  a, 
are  computed  by  the  analysis  program  and  may  not  be  design  variables.  Six 
boundary  conditions  are  imposed  on  f(9)  (including  symmetry  requirements)  so 
that  only  bfi  may  be  treated  as  a  design  variable.   The  three  design  variables 
available  for  optimization  in  this  example  are 

Variable  Global  Location 

a5  6 

h  7 

56  60 

Because  the  aerodynamic  analysis   is  based   on  small   perturbation  theory, 
it   is  only  valid   if   the  slope  of   the  turret   in  the  x-direction  is   small. 
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Therefore,    constraints  are  imposed  on  the  design  so   that   the  turret   shape 
contained   in  vector   SLOPEX  is  less   than  0.3    in  magnitude.      That   is 

-0.3      <_     SLOPE(I)      <_       0.3  I  =  1,30 

SLOPEX  is   stored   in  global   locations   139  -  168   inclusive. 
B.    AERODYNAMICS 

The  aircraft   is  assumed  to  fly  at   sea  level,  and  the  turret   is  not 
pressurized   so   that 

DENRTO     =      TDENRT     -      1.0 
The  aerodynamic  and  optical  constants  are 

DENGRAM  =     1.405 

AKPRIM     -      0.00023 

WAVEL        =     3.4  x  10 

AMACH       =      0.7 


,-6 


infrared  radiation 


nominal.  Mach  number 


C.    MIRROR 


The  mirror  is  situated  at 

XM  -   0.0 
EPSM  =  1.15 
D.  BEAM  ORIENTATIONS 

Three  orientations  are  considered  as  follows: 


Beam 

Azimuth 

Elevation 

(PHI) 

(GAMMA) 

1 

0. 

50. 

2 

45. 

30. 

3 

90. 

10. 

55 


For  brevity  only  three  beam  orientations  are  considered  here. 
Typically  fifteen  orientations  are  used  for  optimization. 

E.  PHASE  DISTORTION 

The  phase  distortion  is  calculated  at  all  combinations  of  two  radial 
and  eight  angular  positions. 

R  =  o. 05,  0.10  relative  to  R  . 

n  =  o,  45,  90,  135,  180,  225,  270,  315  degrees 
Note  that  since  the  maximum  value  of  R  is  0.10,  this  is  the  assumed  radius 
of  the  mirror. 

F.  COPES  DATA 

Based  on  the  above  requirements,  the  COPES  data  are  listed  here  on  a 
data  sheet  reproduced  from  APPENDIX  C,  These  data  are  for  a  complete 
optimization.   If  only  a  simple  analysis   is  desired,  these  data  may  be 
run  by  changing  NCALC  in  DATA  BLOCK  B  to  1  instead  of  NCALC  =  2  given  here. 
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COPES   DATA 


DATA  BLOCK  A 


TITLE 


FORMAT 


DATA  BLOCK  B 

+ 


20A4 


$     SLcCt     8   -    CovTAol.       pA  A  Ah  £  T  £  AS 

'C0MMEN1 

NCALC 

NDV 

NSV 

N2VAR 

IPNPUT 

IPSENS 

IP2VAR 

FORMAT 

2 

3 

8110 

DATA  BLOCK  C  -  OMIT   IF  NDV  -  0 

+ 

S    S>Lock     <2   -    Ca>^/-fS/V      s ^  r  £ G-£A 

/?s*A  Att£r£A  S 

COMMENT 

IPRINT 

ITMAX        ICNDIR 

NSCAL 

ITRM 

LINOBJ 

NACMX1 

NFDG 

FORMAT 

* 

5 

8110 

DATA  BLOCK  D  -  OMIT  IF  NDV 


$    BLdfCk        D     - 

Ca/SMJ-*J       RSA-L.      PJA  /?**  £T£AS> 

COMMENT 

FDCH 

FDCHM 

CT              j   CTMIN 

CTL 

CTLMIN 

THETA 

PHI 

FORMAT 

a. 

| 

8F10 

DELFUN 

DABFUN 

FORMAT 

O. 

1 

2F10 

DATA   BLOCK  E  -  OMIT   IF  NDV  =   0 

+ 

$     BLdc  £      £     -       SfZ^JUzZS. 

P^ffse 

D25T&A  T£0  V 

COMMENT 

NDVTOT  1  IOBJ           SGNOBJ 

FORMAT 

* 

3 

J6*\           -£,o 

2110, Fid 

DATA  BLOCK  F  -  OMIT  IF  NDV 


+ 
* 


$     SLaci.      P-     P&<?X£.£>       l/A-AXJ £££       jLJTXUTS 

COMMENT 

VLB 

VUB 

X 

SCAL 

FORMAT 

4   ?*0  F 

F£CX  £^ 

T    A-S" 

4F10 

-3.0 

S.D 

$   Co£  "p. 

F£C££& 

T    /?-£ 

-•Z.o 

S~0 

d     C*£P 

Fjcz&V 

T    JS-6 

-?  .0 

*,,& 

■ 
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COPES  DATA  CONT. 


DATA  BLOCK  G  -  OMIT  IF  NDV  =  0 


+ 
* 


$     SL&CM     <£   -      PS.SX-6AS      WsPZ f/9£L£       J  (?&*>yx  FXCrf  r-xra  */ 

|  COMMENT 

NDSGN 

IDSGN 

AMULT 

FORMAT 

$    £& £  P 

fJCZBAJ 

r  as" 

2110, F19 

J. 

6 

>       f*o 

$    C<f£F 

fXCZ  £  IS 

r   a-6 

z- 

7 

1,0 

£    C»£& 

?xcxe*> 

T      B-* 

3 

40 

J,o 

DATA  BLOCK  H  -  OMIT  IF  NDV  =  0 
•  |$  SLocx    H     -     Co  fJSTAAXVTS 


COMMENT 


NCONS 


FORMAT 


110 


DATA  BLOCK  I   -  OMIT  IF  NDV  =  0  OR 

NCONS  =  0 

+ 

$   OOfiJjsT-Z*  TVT      a  A/       fflefS  . 

COMMENT 

ICON 

JCON        I    LCON 

FORMAT 

* 

131 

J6S                  l\ 

3110 

+ 

$    LIHXTSD        7o        SM4LL     refiTfASfiTZo/S        TJ7&0 A  tf 

COMMENT 

BL 

SCAL1 

BU 

SCAL2 

FORMAT 

* 

;   -<m 

0.3 

a.  3 

<?.  S 

4F10 

• 
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COPES  DATA  COIVT. 


DATA  BLOCK   I  -  CONT. 


■ 

- 

DATA  BLOCK  J  -fOMITjJlF  NSV  =  0 

5 

COMMENT 

NSOBJ 

|  FORMAT 

110 

S 

COMMENT 

-  NSN1 

NSN2 

NSN3 

NSN4 

NSN5 

NSN6 

NSN7 

NSN8 

FORMAT 

8110 

DATA  BLOCK  K  -^Sl5j  IF  NSV  =  0 

s          " 

COMMENT 

ISENS 

NSENS 

FORMAT 

2110 

$ 

COMMENT 

SNS1 

SNS2 

SNS3 

SNS4 

SNS5 

SNS6 

SNS7   1  SNS8- 

FORMAT 

8F10 

j 

$ 

COMMENT 

ISENS 

NSENS 

FORMAT 

2110 

$ 

COMMENT 

SNS1 

SNS2 

SNS3 

SNS4     SNS5 

SNS6 

SNS7 

SNS8  - 

FORMAT 

1 

8F10 

I 

j 

59 


COPES   DATA  -  CONT. 


DATA  BLOCK  K  -  COOT. 


s 

COMMENT 

ISENS 

NSENS 

FORMAT 

2110 

S 

COMMENT 

SNS1 

SNS2 

SNS3 

SNS4 

SNS5 

SNS6 

SNS7 

SNS8  • 

FORMAT 

8F10 

+ 

$ 

COMMENT 

ISENS 

NSENS 

FORMAT 

* 

2110 

+ 

$ 

COMMENT 

SNS1 

SNS2 

SNS3 

SNS4 

SNS5 

SNS6 

SNS7 

SNS8 

FORM.AT 

* 

8F10 

DATA  BLOCK  L  1 

f  OMIT  JF  N2VAR  =  0 

+ 

$             ' 

COMMENT 

N2VX 

M2VX 

N2VY 

M2VY 

FORT-AT 

* 

1 

4110 

DATA  BLOCK  M  - 

r^MlDlF  N2VAR  =  0 

+ 

$ 

COMMENT 

NZ1 

NZ2 

NZ3 

NZ4 

NZ5 

NZ6 

fNZ7 

NZ8 

FORMAT 

* 

8110 

DATA  BLOCK  N  - 

fOMITTIF  N2VAR  - 

0 

+ 

$            X ' 

COMMENT 

XI 

X2 

X3 

X4 

X5 

X6 

X7 

X8 

FORMAT 

* 

8F10 

- 

DATA  BLOCK  0  -(0MIt)iF  N2VAR  =* 

0 

+ 

$             

COMMENT 

Yl 

Y2 

Y3 

Y4 

Y5 

Y6 

Y7 

Y8 

FORMAT 

* 

8F10 

„ 





DATA   BLOCK  P 
END  j 

[END  


FORMAT 
3A1 
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SUMMARY  OF  COPES  DATA 

LISTING  OF  DATA  AS  IT  APPEARS  ON  PUNCHED  CARDS 

COL.'*  1 10 20 30 40 50  . 

i 1 » j 1 — 

LASER  TURRET  OPTIMIZATION  AT  M  =  0.7 
$  BLOCK  B  -  CONTROL  PARAMETERS 

2  3 

$  BLOCK  C  -  CONMIN  INTEGER  PARAMETERS 

5 

$  BLOCK  D  -  CONMIN  REAL  PARAMETERS.  USE  ALL  DEFAULTS. 

0. 

0. 

$  BLOCK  E  -  MINIMIZE  PHASE  DISTORTION 

3  169  -1.0 

$  BLOCK  F  -  DESIGN  VARIABLE  LIMITS 

$  COEFFICIENT  A  -  5 

-3.0      3.0 

$  COEFFICIENT  A  -  6 

-3.0      3.0 

$  COEFFICIENT  B  -  6 

-3.0      3.0 

$  BLOCK  G  -  DESIGN  VARIABLE  IDENTIFICATION 

$  COEFFICIENT  A  -  5 

1  6  1.0 
$  COEFFICIENT  A  -  6 

2  7  1.0 
$  COEFFICIENT  B  -  6 

3  60  1.0 
$  BLOCK  H  -  CONSTRAINTS 

1 
$  BLOCK  I  -  CONSTRAINT  ON  SLOPE 

139       168        1 
$  LIMITED  TO  SMALL  PERTURBATION  THEORY 
-0.3      0.3      0.3      0.3 
$  BLOCK  P  -  END  OF  COPES  DATA 
END 
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G.  TURRET  ANALYSIS  DATA 

The  data  required  to  analyze  the  laser  turret  described  above  are  listed 
here  on  a  data  sheet  reproduced  from  APPENDIX  C.   Note  that  the  Mach  number 
for  each  beam  orientation  (BLOCK  N)  is  read  as  zero  so  that  all  beam  orienta- 
tions will  be  analyzed  at  the  nominal  Mach  number  of  0.7.   If  another  run  is 
desired  at  a  different  Mach  number,  only  AMACH  (BLOCK  B)  need  be  changed. 
If  certain  beam  orientations  are  to  be  analyzed  at  different  Mach  numbers, 
the  appropriate  value  should  be  read  in  BLOCK  N.  ' 
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LASER  TURRET  ANALYSIS  DATA 


DATA  BLOCK  A 

TITLE 

FORMAT 

* 

*v  gSo/JIC 

LftSgR 

To>AA£r 

/?T     sff/9-     i.sy£L. 

20A4 

DATA  BLOCK  B 


AMACH 

DENRTO 

TDENRT 

DENGAM 

AKPRIM 

WAVEL 

\   FORMAT 

0,1 

/,D 

/,0> 

/^aiS" 

.aaoz 3 

3.*     -6 

6F10 

DATA  BLOCK  C 


RFUS           AL 

THMAX       !   ACL 

EPS 

\  FORMAT 

Z.£- 

l-.O 

**>.        1       6Z 

<*-3 

5F10 

DATA  BLOCK  D 


MAXK 

MAX? 

NXBC 

NTHBC 

FORMAT 

/ 

6 

a 

1 

4110 

DATA  BLOCK  E 


ABARO 

ABAR1 

ABAR2 

A3AR3 

A3AR4 

ABAR5 

ABAR6 

ABAR7 

FORI-IAT 

2.0 

0  . 

-o,  6J111 

o . 

-eJfoS'6 

a. 

-a.ae*?^ 

8F10 

DATA  BLOCK  F 


X 

YBC 

YPBC 

FORMAT 

-1.* 

o. 

a. 

3F10 

l.o 

&. 

& , 

DATA  BLOCK  G 


BBARO 

BBAR  1 

B3AR2 

BBAR3 

3BAR4 

B3AR5 

BBAR6 

BBAR 7       |  FORMAT 

l,o 

a . 

-o.  /J.J1J 

0. 

-0,1**5* 

0. 

~&.  a?S?44 

8F10 

DATA  BLOCK  H 


THETA 

YBC 

YPBC 

FORMAT 

1.0 

O. 

0>. 

3F10 
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LASER  TURRET  ANALYSIS  DATA  -  CONT. 


DATA  BLOCK  I 


EPSM 


XM 


FORMAT 


1.1€- 


o+ 


2F10 


DATA  BLOCK  J 


NETAI    NRBI 


FORMAT 


H 


2110 


DATA  BLOCK  K 


ETA1 


ETA2 


ETA3 


ETA4 


ETA5 


ETA6 


ETA  7 


ETA8 


FORMAT 
8F10 


a. 


4S~, 


9*. 


J3S-. 


/?*. 


2.25". 


270. 


325-. 


DATA   BLOCK  L 

RBI 

RB2 

RB3 

1  R34 

1  RB5 

R36 

RB7 

RB3 

|    FORMAT 

* 

0r<?T 

a,  J. 

j 

8F10 

DATA  BLOCK  M 


N3EAM 


FORMAT 


110 


DATA  BLOCK  N 


PHI 

GAMMA 

AMACHI 

KGHT 

FORMAT 

C 

s-a. 

4F10 

4£ 

3o. 

10. 

io. 

- 

■ 
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SUMMARY  OF  TURRET  ANALYSIS  DATA 


LISTING  OF  DATA  AS  IT  APPEARS  ON  PUNCHED  CARDS 


COL.-* 

1 

BLOCK 

A 

SUBS! 

B 

5.7 

C 

2.5 

D 

E 

1.0 

F 

-1.0 

F 

1.0 

G 

1.0 

H 

1.0 

I 

1.15 

J 

K 

0. 

L 

0.05 

M 

N 

0. 

N 

45. 

N 

90. 

A 

STOP 

10 


20 


30 


40 


50 


60  ... 


1.0 

1. 

405 

0.00023 

60.0 

10 

.0 

0.3 

2 

1 

-.61111 

0. 

-.18056 

0. 

0. 

-.61111 

0. 

-.18056 

0. 

3.4-6 


T 

LASER  TURRET  AT  SEA  LEVEL 
1.0 
2.0 

0. 
0. 
0. 
0. 
0. 
0. 
5 
45. 

0.1 
3 

50. 
30. 
10. 

(New  COPES   Data  Title  Card  To  Terminate  Program  After 
This   Run) 


T   •   1 


8 


90. 


135. 


180. 


0. 


0. 


225. 


-.006944 


-.006944 


270. 
(end  of  card)    315. 
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VI.   SAMPLE  OUTPUT 


ccccccc 

O00( 

0 

0 

3000 
0 
0 

ppppppp 

p    p 
p    p 

EEEEEEE 

E 

E 

sssssss 

S 
S 

ccccccc 

0      0 

0      0 

o    o 
ooooooo 

ppppppp 

p 
p 

p 

EEEE 
E 

E 

EEEEEEE 

sssssss 
s 
s 

sssssss 

NASA   .   AMES 
CONTROL    PROGRAM 
FOR 
ENGINEERING    SYNTHESIS 


title 
laser  turret  optimization  at  n  a  0,7 
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CARD  IMAGES  OF  CONTROL  DATA 
CARD  IMAGE 


1)  LASER  TURRET  OPTIMIZATION  AT  M  =  0.7 

2)  S  BLOCK  8  -  CONTROL  PARAMETERS 

3)  2  3 

a)  S  8L0CK  C  -  COnmIN  INTEGER  PARAMETERS 

5)  5 

6)  $  BLOCK  0  -  COnmIN  REAL  PARAMETERS,  USE  ALL  DEFAULTS, 

7)  0. 

8)  0, 

9)  $  8L0CK  £  -  MImjmIZE  PMASE  DISTORTION 

10)  3        16<>   -l.O 

11)  $  8L0CK  F  -  DESIGN  VARIABLE  LIMITS 

12)  $  COEFFICIENT  a  -  5 

13)  -3.0       3.0 

ltt)  S  COEFFICIENT  A  .  6 

15)  -3.0       3.0 

16)  S  COEFFICIENT  a  .  6 

17)  -3.0       3.0 

18)  $  3L0CK  G  -  DESIGN  VARIABLE  IDENTIFICATION 

19)  S  COEFFICIENT  4  .  5 

20)  1  b  1.0 

21)  $  COEFFICIENT  »  .  6 

22}  2  7  1.0 

23)  $      COEFFICIENT  8-6 
2«)  3         60  1.0 

25)  S  8L0CK  H  .  CONSTRAINTS 

26)  1 

27)  $  8L0CK  I  -  CONSTRAINT  ON  SLOPE 

28)  139        168  1 

29)  S  LIMITED  TO  SmalL  PERTURBATION  THEORY 

30)  -0,3       0.3        0.3        0.3 

31)  S  BLOCK  P  -  ENn  OF  COPES  DATA 

32)  ENO 
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CARD  IMAGES  OF  CONTROL  DATA 
CARD  IMAGE 


1)  LASER  TURRET  OPTIMIZATION  AT  M  =  0.7 

2)  S  BLOCK  8  -  CONTROL  PARAMETERS 

3)  2  3 

a)  $  8L0CK  C  -  COnmIN  INTEGER  PARAMETERS 

5)  5 

6)  $  BLOCK  D  -  CONmIN  REAL  PARAMETERS,  USE  ALL  DEFAULTS. 

7)  0. 

8)  0, 

9)  $  BLOCK  E  -  MINImIZE  PHASE  DISTORTION 
10)  3        169   -t.O 

It)  S  8L0CK  F  -  DESIGN  VARIABLE  LIMITS 

i2)  $  Coefficient  *  -  5 

13)  -3.0       3.0 

14)  S  COEFFICIENT  i  .  6 

15)  -3.0       3.0 

16)  S  COEFFICIENT  r  .  6 

17)  -3.0       3.0 

18)  S  3LOCK  G  -  DESIGN  VARIABLE  IDENTIFICATION 

19)  S  COEFFICIENT  4  .  5 

20)  1  6  1.0 

21)  S  COEFFICIENT  4.6 

22)  2  7  1.0 

23)  $      COEFFICIfnT  8-0 

24)  3         60  1.0 

25)  $  BLOCK  H  .  CONSTRAINTS 

26)  l 

27)  S  BLOCK  I  -  CONSTRAINT  ON  SLOPE 

28)  139        168  1 

29)  S  LIMITED  TO  SualI-  PERTURBATION  THEORY 

30)  -0.3       0.3        0.3        0.3 

31)  *  BLOCK  P  -  ENn  OF  COPES  DATA 

32)  END 
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NCALC 

a 

2 

NOV 

a 

3 

NSV 

s 

-0 

N2VAR 

3 

-0 

IPNPUT 

s 

-0 

IPSENS 

3 

-0 

IP2VAR 

a 

•  0 

IP08G 

a 

-0 

TITLE: 

LASER  TURRET  OPTIMIZATION  AT  M  s  0.7 


CONTRoL  PARAMETERS; 
CALCULATION  CONTROL/ 
NUMBER  OF  GLOBAL  DEStgN  VARIABLES, 
NUMBER  OF  S£NSITTVITY  VARIABLES/ 
NUMBER  OF  FUNCTIONS  jN  TWO-SPACE, 
INPUT  INFORMATION  PRTNT  CODE, 
SENSITIVITY  PRINT  cOnf. 
TWO-SPACE  PRINT  CODE. 
DEBUG  PRINT  COOe, 


CALCULATION  CONTROL/  NC*lC 
VALUE    MEANING 

1  SINGLE  ANALYSIS 

2  OPTIMIZATION 

3  SENSITIVITY 

tt      TWO-VARIABLE  FUNCTION  SPACE 

GLOBAL  VARIABLE  numBfr  OF  OBJECTIVE  a   ife9 

MULTIPLIER  (NEGATIVE  INDICATES  MINIMIZATION)  a   -.1000E+01 

CONhiN  PARAMETERS  (IF  ZERO,  CONMiN  DEFAULT  WjLL  OVER-RiDE) 

IPRINT   ITMAX    ICNOtR    NSCAL    ITRM    LINOgJ   NACMX1    NFDG 
5       -0       -0       -0       -0       -0        5       -0 

FOCH  FOChm  CT  CTmIN 

0.  «0,  -0,  -0. 

CTL  CTLmiN         theta  phi 

•0.  -0,  -0,  -0, 

DELFUN  OABfijn 

0,  -0. 

DESIGN  VARIABLE  INFORMATION 

NON-ZERO  INITIAL  value  "ill  over-ride  MOOULE  INPUT 

UPPER  INITIAL 

BOUND  VALUE           SCALE 

,30000E*01  -0.             -0, 

,30000E*0t  -0,             -0, 

,30000E*01  -0,             -0, 

DESIGN  VARIABLES 

D.  V,      GLOB»L  MULTIPLYING 

ID      NO,      VAR.  mo.  FACTOR 

1  1          6  .10000E+01 

2  2                       7  .10000E+01 

3  3         60  .10000E+01 


CONSTRAINT  INFORMATION 
THERE  ARE   1  CONSTRAINT  SETS 


D.  V. 

LOWER 

NO. 

80UN0 

1 

•,30000E>01 

2 

-.30000E+01 

3 

-.30000E+01 
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GLOBAL   GLOBAL   LINEAR  LOWER       NORMALIZATION        UPPER       NORMALIZATION 

jo   var.  i  var,  2    to  Bound       factor        bound       factor 

1     139      168        1  «.3oOOOE*00      .30000E+00      ,30000E*00      .3000QE+00 
TOTAL  NUMBER  OF  CONSTRAINED  PARAMETERS  s    30 

DATA  STORAGE  REQUIREMENTS 

REAL  INTEGER 

INPUT   EXECUTION   AVAILABLE  INPUT   EXECUTION   AVAILABLE 

144        407       5000  103        118       1000 
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TURRET  ANALYSIS  INPUt 

TITLE 

SUBSONIC  LASgR  TURRET  AT  S£*  LE*EL 


AERO-OPTICS 

MACH  NUMBER*  AMaCH  s  ,700 

EXTERNAL  DENSITY  RATION,  DENRTO  a  1,000 

INTERNA^  DENSITY  «ATtq.  TOENRT  =  1,000 

PRESSURE-OENSITY  EXP0nEnT>  DENGAM  a  I.4O5 

PHASE  OISTOHTION  CONSTANT,  AKPRIM  a  .2300E-Q3 

WAVELENGTH*  WAVEL  »  ,3a00£-05 


GEOMETRY 

FUSELAGE  RAOIUS,  RpU«  ■  2.500 

TURRET  HALF-LENGTH,  a  2.000 

TURRET  HALF-ANGLE,  ThmaX  a  60.000   DEGHEtS 

TURRET  HEIGHT  FACTOR,  EPS  -  .iOO 

TURRET  HAlF-SPACInG,  aCL  s  10.000 

TURRET  POLYNOMIAL  SH4Pe  COEFICIEnTS 
X-OIRECTION,      OROpR  =     6 
COEFICIENTS 

,10000E*01   0,  -.61111E+00   0.  -,18o56£*00 

0,  -,694UoE-02 

80UN0ARY  CONOITIONS 

X/L  Y  Y-PRIMp 

0,000  .300       200. Ooo 

>1,000         -0,000         -O.OoO 

1,000         -0,000         -O.OoO 

THETA-OlRECTlON,  ORDfp.  s     6 
COEFICIENTS 

.10000E+01   0.  -,61111E*00   0,  -.18056E+00 

0.  -,69««oE-02 

80UN0ARY  CONDITIONS 
THETA/THMAX     y     Y-PRTME 

0,000      ,300   ?00.000 

1,000    -0.000    .0.000 

LOCATION  OF  CENTER  Op    MIRROR 
XM    s  -0,000      EP??M  «   1,150 

PHASE  DISTORTION  CALCULATION  POINTS 
ANGLES 

0.000     05.000     90,000    135,000    180,000 
225.000    270.000    315,000 

RADII 

,050       .100 

BEAM  ORIENTATIONS 
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BEAM 

PHI 

GAMMA 

M*CH 

WEIGHT 

1 

0.00 

50.00 

.700 

1  .000 

2 

as. oo 

30.00 

.700 

1.000 

3 

<»0.00 

10.00 

.700 

1.000 

PHASE  DISTORTION  CALCULATIONS 


8EAM  ORIENTATION  NUM 

RER  *            1 

azmuth  angle 

3       0 

.00  DEGREES 

ELEVATION  ANGLE 

s      50 

,00  DEGREES 

MACH  NUMBER 

3 

.70 

R 

ETA 

X 

y 

A 

N 

0. 

0.00 

0, 

0. 

,1920E*00 

0. 

.5000E-01 

0.00 

0. 

.5000E-01 

.1523E+00 

,75a6£f00 

.5000E-01 

as, 00 

.35366-01 

.3536E-01 

,1629E*00 

,5a77E*00 

.500OE-O1 

90.00 

.5000E-01 

•6675E-09 

,l898E*00 

.USOE-01 

.5000E-01 

135.00 

.35366-01 

-.35366-01 

,2l7a£*00 

-,535lE*00 

.5000E-01 

180.00 

.1335E-08 

-.5000E-01 

,22916*00 

-,77us£*00 

.5000E-01 

225.00 

., 35366-01 

-.3536E-01 

,2l7a£*00 

-, 53516*00 

.50006-01 

270.00 

..5000E-01 

-.2002E-08 

,1898E*00 

.1850E-01 

.5000E-01 

315.00 

..353b£-01 

.3536E-01 

,l629Ef00 

.5a77E+00 

.ioooe+oo 

0.00 

0. 

,1000E*00 

.llO^E+OO 

,l«6l6*01 

,1000E*0O 

as. 00 

,70716-01 

.7071E-01 

.13076*00 

.10896*01 

.  100QE>00 

"»0.00 

. 10006*00 

.1335E-08 

,182'»E*00 

,7a26E-01 

.lOOOEtOO 

135.00 

.7071E-01 

-.7071E-01 

,2396E*00 

-.1070E*01 

,1000E*00 

180.00 

,2670E-08 

-,1000E*00 

,26a5E*00 

-,158lE*0l 

.1000E+00 

225.00 

-.70716-01 

-.7071E-01 

,2396E*00 

-.10706*01 

,1000E*OO 

270.00 

.,  10006*00 

-,a005E-08 

.1829E+00 

,7a266-01 

,1000E*00 

315.00 

-.7071E-01 

.7071E-01 

.1307E+00 

.10896*01 

ZERNICKE  COEFFICIENT^/ 
AVERAGE  s    .10883E-O2 


TILT,  X  s 

FOCUS  s 

ASTIG  s 

CQMA  3 


.l28SaE*00 

.30067E-r»3 

-.20378E-02 

-.13262E-03 


Y  s   -.10536E-02 


,l2277E-oa 
-,2ia63E-06 


-,a8326F-03    .2533l£-02 


PHASE  DISTORTION  CALCULATIONS 
BEAM  ORIENTATION  NUMqpp  3     j 


AZMUTH  ANGLE 

3    as 

,00  DEGREES 

ELEVATION  ANGLE 

■     30 

,00  DEGREES 

MACH  NUMBER 

.70 

R 

ETA 

X 

y 

A 

N 

0. 

0.00 

0. 

0. 

,2532E*00 

0. 

.5000E-01 

0.00 

<>r 

,50006-01 

.laa3E*00 

.7872E+00 

.5000E-01 

as. 00 

,35366-01 

,35366-01 

,2166E*00 

.23b8£>00 

.5000E-01 

90.00 

.5000E-01 

.66756-09 

.2601E+00 

-.a6<?66*00 

.5000E-01 

135.00 

,35366-01 

-.35366-01 

.2977E+00 

-.89066*00 

.5000E-01 

180.00 

.133SE-08 

-.5000E-01 

.3062E+00 

-.7552E+00 

.5000E-01 

225.00 

.,35366-01 

-.35366-01 

,2833E*00 

-.1882E+00 

.5000E-01 

270.00 

-.5000E-01 

-.2002E-08 

,2a3aE>oo 

.4S63E*00 

.5000E-01 

315.00 

-.35366-01 

,3536£-01 

,2073E>00 

,8a22E*00 

.10006+00 

0.00 

0. 

,1000E*00 

. 1 181E*00 

.18006*01 
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.10006+00 
.100OE+O0 
.lOOOE+OO 
.1000E+00 

.10006*00 
, 10006*00 
,10006+00 


45.00 
90.00 
135.00 
180.00 
225.00 
270.00 
315.00 


,70716-01 

.10006+00 

.70716-01 

.2670E-08 

..70716-01 

.,10006*00 

-.70716-01 


.7071E-01 
.1335E-08 
-.7071E-01 
-.1000E+00 
-.7071E-01 
-.4OO5E-O8 
.7071E-01 


. 1668E+00 
,2fca06*00 
.34116*00 
,3547E*00 
,3077E*00 
,23096*00 
.1530E+00 


.6386E+00 
-,9a7aE*00 
-.1821E+01 
-,1«86E*01 
-,3232E*00 
,89b0E*00 
. 17596*01 


ze"nicke  coefficient*/ 

AVERAGE  s    ,fl9776E-iJ2 


TILT,  X  = 

.13398E+O0 

Y  * 

-.78917E-01 

FOCUS    s 

,37912E-n? 

ASTIG    = 

.26635E-02 

.58705E-02 

COMA     s 

.85o58E-^3 

.779956-04 

.32978E-02 

.27808E-02 

PHASE  DISTORTION  CALCULATIONS 

BEAM  ORIENTATION  NUMqER  = 
AZMUTH  ANGLE  s 

ELEVATION  ANGLE  s 

MACH  NUM8ER  s 


.5000E-01 
.5000E-01 
.5000E-01 
.50006-01 
.50006-01 
.5000E-01 
.5000E-01 
.5000E-01 
.1000E+00 
.lOOOEtOO 
.1000E+OO 
,1000E*00 
.  10O0E  +  O0 
,1000E*O0 
,1000E*0O 
.lOOOE+00 


ETA 

0.00 

0.00 

45.00 

"»0.00 

135.00 

180.00 

225.00 

270.00 

315.00 

0.00 

45.00 

90.00 

135.00 

180.00 

225.00 

270.00 

315.00 


0. 
0. 
.35366-01 

.5Q00E-01 

.3S366-01 

.13356-08 

..35366-01 

-.5000E-01 

., 35366-01 

0. 

.7o7lE-01 

.  lOOOE+OO 

.70716-01 

.2670E-08 

.,7o7l6-01 

..lOOOE+OO 

..7Q71E-01 


90,00  OEGREES 
10.00  OEGREES 
.70 

Y 
0. 
.5000E-01 
•3536E-01 
.66756-09 
-.35366-01 
-.50006-01 
-.35366-01 
-.20026-08 
,35366-01 
.lOOOE+OO 
.7071E-01 
.1335E-08 
-.70716-01 
-,10006*00 
-.70716-01 
-.40056-08 
,70716-01 


.3440E+00 
,2708E*00 
,29286+00 
,34346*00 
,39016*00 
.40666*00 
,39016+00 
,3434E*00 
.2928E+00 
,1783E*00 
.2361E+00 
.3al3E*00 
.42496+.00 
,a5l4E*00 
,4249£*00 
,3al3E*00 
,23616*00 


N 

0. 

,7185E*00 

.46866*00 

-.1814E-01 

-,2<,12£  +  U0 

-.41996*00 

-.26126*00 

-.18146-01 

,46^66+00 

.l692E*01 

,98186*00 

-.9792E-01 

-.66176+00 

-.873b£*00 

..6617E+00 

-.97926-01 

,98186+00 


ZERKICKE  COEFFICIENTS/ 


AVERAGE 
TILT,  X 
FOCUS 
ASTIG 
COMA 


.19155E-01 
,996i3E-oi 
,62398E-ft2 
.81849E-Q2 
,303l7E-n2 


Y  *      -.74724E-03 


-.722956-04 
,100556-04 


,29599£-02    ,179656-02 


FLOW  FIELD  FOR  TMETA  3   0,000  DEGREES 
MACH  NUMBER  s    .700 
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..UOOOEfOl 
•,3600E*0t 

..3200E+01 

>.2900E>01 

..2400E+01 

>,2000E*01 

-,  1600E+01 

..1200E  +  01 

«.8000E*00 

.,«OO0E*OO 

,a97aE-i3 

.aooOE+OO 

,8000E*00 

.1200E+01 

.1600E+01 

,2000E*01 

.2a00F*0 t 

,2800E»01 

,3200E*01 

.3600E+01 

.uOOOE+Ol 


,1000E*fii 
.lOOOEtoi 
.lOOOE+oi 
.  iOOOE  +  nt 
.lOOOE+oi 
,1000E*ot 
.1028E*oi 
,1 I03E*oi 
,U97E+ni 
.1272E+01 
,l300£toi 
,1272E*oi 
.1197E+01 
.HOSE+fli 
.1028E+O1 
.  1  OOOE  +  n i 
. lOOOE+oi 
.lOOOE+nt 
.lOOOE^nt 
,lOOOE*(ji 
.lOOOE+oi 


PHI 

■.4757E-02 

•.7151E-02 

..7146E-02 

•.7275E-02 

..1601E-01 

•.4092E-01 

..7512E-01 

•.9U1E-01 

..7710E-01 

..123SE-01 

.53<51E-1« 

.4235E-01 

.7710E-01 

.91U1E-01 

.7512E-01 

.40«?2E-01 

.  16016-01 

.7275E-02 

.7U6E-02 

.7151E-02 

.4757E-02 


U 

..751SE-02 

,338gE-02 

.2194E-02 

■,693aE-02 

..4Q23E-01 

•.8283E-01 

>.906lE-01 

•.3756E-01 

.3703E-01 

.9030E-01 

,108aE*00 

.9030E-01 

.3703E-01 

..375oE-0t 

•.P061E-01 

.8283E-01 

•.U028E-01 

..693UE-02 

,2l9qE-02 

.3386E-02 

.7515E-02 


.1878E-02 

.6275E-02 

.7948E-03 

-,110aE-01 

-,6uo5E-02 

.3960E-01 

.1169E+00 

.l«j93E*00 

.1370E+00 

.7510E-01 

-.9S33E-la 

-.7510E-01 

-.1370E*00 

-,1593E*00 

-.1169E+00 

-.3960E-01 

.6a05E-02 

.1104E-01 

-.79«8E-03 

-.O275E-02 

-.1878E-02 


CP 

.1503E-01 

.6733E-02 

-,a389E-02 

.1375E-01 

.8052E-01 

,lt>alE*00 

.1675E+00 

.4976E-01 

-.9283E-01 

-.1862E+00 

-.2168Et-00 

-,1862E*00 

-.9283E-01 

.4976E-01 

.1675E+00 

.16U1E+00 

,80s2F-0i 

.1375E-01 

-,a389E-02 

.6733E-02 

.1503E-01 


CRITICAL    PRESSURE    COEFFICIENT    ON    SURFACE    a      al. 76395 


SURFACE    DEFINITION  (EPS    s         ,300) 

POLYNOMIAL    COEFICIENTS    (A(I),     IsO.MaXK)  IN    X. DIRECTION 

.lOOOOEfOl    0.  -.61U0E  +  00    0,  ,118o5Et00 

0,  -.69440p-02 

POLYNOMi*L    CoEFjCiEntS    (8(1),     i=0,MAXP)  in    THET A-Ol RECTlON 
,10000E*0l    0.                           -.18321E+01    0,  ,fl4677E*00 

0.  -.69440F-02 


COORDINATES 

X 

Z 

Z-PRIMg 

-2.200 

0.0000 

0.0000 

-2.000 

,0000 

0.0000 

-1,800 

.0069 

.0700 

-1,600 

.0278 

.1375 

•1.400 

.0610 

.1918 

-1.200 

.1032 

.2263 

•1.000 

.1500 

.2375 

•.800 

.1966 

.2249 

•.600 

.2385 

.1904 

-.400 

.2716 

.1377 

-.200 

.2927 

.0722 

.000 

.3000 

-.0000 

•  200 

.2927 

-.0722 

.400 

.2716 

-.1377 

.600 

.2385 

-.1904 

.800 

.1966 

-.2249 

1.000 

.1500 

-.2375 

1,200 

.1032 

-.2263 

1.400 

.0610 

-.1918 

1,600 

.0278 

-.1375 

1.800 

.0069 

-.0700 

2.000 

.0000 

0.0000 
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2.200        0,0000        0,0000 
THETA 


RAOIANS 

DEGREES 

Z 

Z-PRIME 

-1.152 

•66.0000 

0.0000 

0.0000 

-1.047 

•60.0000 

,0000 

-.0000 

'.1*2 

-54,0000 

.0107 

.1947 

-.838 

-48,0000 

.0387 

.3286 

-.733 

-42,0000 

.0777 

.4082 

-.628 

-36,0000 

.1225 

.4399 

-,52a 

-30,0000 

.168a 

,«302 

-.419 

-24,0000 

,2114 

.3859 

-.314 

-18.0000 

.2482 

.3139 

-.209 

-12,0000 

,2764 

.2209 

-.105 

-6,0000 

.2940 

.1139 

.000 

,0000 

.3000 

-.0000 

.105 

6,0000 

.2940 

-.1139 

.209 

12,0000 

.2764 

-.2209 

.3ia 

18,0000 

.2482 

-.3139 

.419 

24,0000 

.2114 

-.3859 

.524 

30,0000 

.1684 

-.4302 

.628 

36,0000 

.1225 

-.4399 

.733 

42.0000 

.0777 

-.4082 

.838 

48,0000 

.0387 

-.3286 

.942 

54,0000 

.0107 

-,19o7 

1.047 

60,0000 

.0000 

.0000 

1.152 

66,0000 

0.0000 

0.0000 

SUM  OF  SQUARES  OF  PH4Se  oISTORTION  s   .36648F+02 
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****** 

»  *  *  *  * 

*********** 

•  *  *  *  * 

C  0  N  M  I  N 

FORTRAN  PROGRAM  FOR 

*          CONSTRAINED 

FUNCTION  MINIMISATION 

*   NASA/AMES 

RESEARCH 

CENTER,  MOFFETT  FIELD, 

CALIF.  * 

VERSION 

II      JULY,  197S 

CONSTRAINED  FUNCTION  MINIMIZATION 
CONTROL  PARAMETERS 


IPRINT   NOV 
5        3 

ITMAX     NCON 
20       60 

NSIOE   ICNDIR 

1      a 

NSCAL    NFDG 
•  0       -0 

LINOBJ   ITRM 
-0        3 

Nl        N? 
5       66 

N3      Na 
5        5 

N5 
10 

CT 
•.lOOOOE+OO 

CTHIN 
.«OO00E-02 

CTL 

-.  10000E-01 

CTLHIN 
.10000E-02 

THETA 
.10000E+01 

PHI 
.5oooOe+01 

DELFUN 
.10000E-03 

OARFUN 
.36648E-01 

FDCH 

.lOOOOc-01 

FOCHM 

,ioonoE-ol 

LOWER  HOUNOS  ON  DECISION  VARIABLES  (VLB) 

t)     -.30O00E+O1   ..30000E*01   -,30000£*01 

UPPER  BOUNDS  ON  DECIsIpN  VARIABLES  (VUB) 

U      ,30000£  +  01    .30000Ef01    .30000E  +  0.1 

ALL  CONSTRAINTS  ARE  ,'inEaR 


Initial  function  information 

OBJ  *  .366O82E+02 

DECISION  VARIABLES  (x. VECTOR) 
1)     0,  „.69«aOE-02 

CONSTRAINT  VALUES  (G.vECtOr) 

1)     -.iOOOOE+Ol   ..10000E+01 

7)     -.1«725E*01   ..527S3E+00 

13)     -,l76a2E*01   -.23576E+00 


-,69aa0£-02 


•.11S98E  +  01 
,160Uk*01 

'.mioE+oi 


-.8U021E+00  -,13218£>01  -,67816EtOO 
-,39889E*00  -.17001E+01  -,2999u£+00 
-,20905E*00   -.17796E+01   -,22039£t00 


76 


19) 

•,17515E*01 

..2t>850E*00 

-, 16495E+01 

-.35047E+00 

..15380E+01 

-.46200E+00 

25) 

-,1«023E*01 

..5<?77lE  +  00 

-,12«87E*01 

-.75130E+00 

-.10841E+01 

-,91586EtOO 

3D 

-.91586E+00 

..10841E*01 

-,75l30E*00 

-.12487E+01 

-.59771E+00 

-.14023E+01 

37) 

-.46200E+00 

..15380E+01 

-.35047E+00 

-,16495EtOl 

-,2b850E*00 

-.17315E+01 

a3) 

-.22039E+00 

-.17796E+01 

-.20905E+00 

-,  17910E  +  01 

-.23576E+00 

-.17642E+01 

49) 

-.29994E+00 

..17001E+01 

-,39889£»00 

-.16011E+01 

-,52753E*00 

-♦14725E+01 

55) 

-.678l6E*00 

..13218Et01 

-.84021E+00 

-.H598E  +  01 

-.lOOOOE+Ol 

-.lOOOOE+Ol 

BEGIN  ITERATION  NUHSpR     1 

CT  s    -.10O00E+0O      CTL  -         -.10000E-01      PHI  *     .50000E+01 

THERE  ARE     0  ACTIVp  CONSTRAINTS 

THERE  ARE     o  VIOLATED  CONSTRAINTS 

THERE  ARE     0  ACTlVp  slOE  CONSTRAINTS 

GRAOIENT  OF  08J 

1)      .53485E+03   -,70436E*03    .19787E+02 

SEARCH  DIRECTION  (S-vECTOR) 

1)     -,7S93S£*00    .10OOOE+01   -.28092E-01 

ONE-OIMENsIONAL  SEARCH 

INITIAL  SLOPE  s   -,luiE*04   pRQPOS£0  ALPHA  -    .3298E-02 


*  *  CONSTRAINED  ONe-DIHfnSIONaL  SEARCH  INPORHaTiON  »  *  * 


PROPOSED  DESIGN 

ALPHA  s  .32985E-02 
X-VECTOR 

-.2505£-02  -,3646£-02   -.7037£-02 


OBJ  s    , 

33029E+02 

CONSTRAINT  VALUES 

-.IOOOe+01 

-. 1000f*01 

-,1219E+01 

-,7805e*00 

-,1407E+0l 

-,5927e+00 

-.1559E+01 

-,440:« 

-.1674E+01 

-.3263E+00 

-.1749E+01 

-.2510E+00 

-.1786E+01 

-.2144E+00 

-.  1  785E*01 

- .  2 1 4  U 

-.1750E+01 

-.2503E+00 

-.1683E+01 

-.3171E+00 

-.l589Ef01 

-.4U3E  +  00 

-,1472E*01 

-.528-) 

-.1337E+01 

-.6630E+00 

-, 1 190E+01 

-,8097e*00 

-.1037E+01 

-.9629^+00 

-.8833E+00 

-.111! 

-.7347E+00 

-.1265E+01 

-.5968E+00 

-.1403E+01 

-.4749E+00 

-,l525Et0l 

-,3738E*00 

-.162:1 

•.2978E+00 

-.1702E*01 

-.250ftE+00 

-,17<*9E  +  01 

-.2347F+00 

-.1765E+01 

-,2521E*00 

-.174; 

-,3034E*00 

-.1697E+01 

..3881E+00 

-,lbl2E*01 

-,5043E*00 

-.1496E+01 

-.6486E+00 

-.135: 

-.8161E+00 

-.118«E+01 

-.  100'JEtOl 

-.10O0E+OI 

TWO-POINT  INTERPOLATION 


PROPOSED  DESIGN 
ALPHA  s   .16492E-01 
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X-VECT0R 
-.1252E-01 

OBJ  i 


.9548E-02   ..7407E-02 


.20655E+02 


CONSTRAINT 

'.1000E  +  01  • 

•.1964E+01  • 

..16306  +  01  « 

'.1076E+01  - 

..6682E+00  • 

-.4152E  +  00  • 

-.3175E  +  00  • 

-.7197E  +  00  - 


VALUES 

.  10006  +  01 

,35g6E.01 

.3698E+00 

,92«lE+00 

.1332E+01 

.1585E*01 

.I683E+OI 

.1280E+01 


..1458E+01 
-.19u5£+01 
..1U89E+01 
-.95656+00 
..5<?30E  +  00 
-.37136+00 
..34516+00 
-.1000E+01 


-.54186+00 
-.5527E-01 
-.5115E+00 
-.1043E+01 
-.14076+01 
-.16296+01 
-.1655E+01 
-.1000E+01 


..17U9E  +  01 
-.18716  +  01 
-.13456  +  01 
-.84906+00 
-.52636  +  00 
-.33756  +  00 
-.4H5E  +  00 


-.2511E+00 

-.12876  +  00 
,65486+00 
.11516+01 

..14746  +  01 
.1662E+01 
.1588E+01 


-.1907E+01 
-.17626+01 
-.12066+01 
-.7531E+00 
-.46716+00 
-.3177E+00 
-.5306E+00 


-.9258E-01 
-.2384E+00 
-.7937E+00 
-.1247E+01 
-.15336+01 
-.1682E+01 
-,  14696  +  01 


THREE-POINT  INTERPOLATION 


PROPOSED  DESIGN 

ALPHA  s  .161276-01 
X-VECTOR 

-.1376E-01  .11186-01 

OBJ  *    .19478E+02 


CONSTRAINT 

'.IOOOe  +  OI  < 
•.20006  +  01 

'.l6l5E  +  0l  - 

-.1044E  +  01  < 

>.660<JE  +  00  ■ 

-,42<>7E  +  00  . 

-.31926  +  00  < 

-.7078g  +  00  « 


VALUES 
'.lOOOg  +  Ol 
.4145E-13 
.38«fcE*00 
."564E+00 
.1340E+01 
■.15706  +  01 
.U81F  +  01 
.12^26+01 


-.7453E-02 


..1489E+01 
..1969E+01 
-.1464E+01 
..9276E+00 
-.S925E+00 
..3««>3E  +  00 
-.339HE+00 
-.1000E+01 


-.5122E+00 
-.31036-01 
-.53556+00 
-.1072E+01 
-.1407E+01 
-.16146+01 
-.1660E+01 
-.IOOOE+OI 


*  *  *  ENO  OF  ONE-OIMpnsIONAL  sEArCH 
CALCULATED  ALPHA  s     .181276-01 


OBJ  » 


.194784E+02 


DECISION  VARIABLES  (X-VECT0R) 
1)     -,13765E-01    .11183E-01 


) 

OE  +  01 
4E-01 
4E+00 
3E  +  00 
OE  +  00 
OE  +  01 
4E  +  01 
76  +  01 
86  +  01 
06  +  01 


onstraint  values  (G 

•vector 

I) 

-.10000E+01 

-.1000 

7) 

-.19505E+01 

..4948 

13) 

-.18819E+01 

-.1181 

1*) 

-.14645E+01 

-.5355 

25) 

-.10436E+01 

—  9«56« 

31) 

-.73701E+00 

-.1263 

37) 

-.53264E+00 

-.1467 

43) 

•.3««,2bE+00 

-,1613 

49) 

-,31919£>00 

-.1680 

55) 

-.51597E+00 

-.1484 

-,74532£-02 


-.1487 
-.2000 
'.1758 
-.1315 

'.9275 

..6599 

..4786 

-.3502 

.3397 

-.7077 


8E  +  01 
OE  +  01 
7E  +  01 
OE  +  01 
7E  +  00 
^E  +  00 
4E  +  00 
86  +  00 
8E  +  00 
8E  +  00 


-,1791E  +  01 
.1882E+01 

-.1315E  +  01 
.9257E+00 
.53266+00 

..3503E  +  00 
.40006+00 


-.2087E+00 
,1  1816  +  00 
.685OE+OO 
.1 174E+01 
,14fe7E+01 
,16506+01 
.lbOOE+01 


-.1951E  +  01 
-.1759E  +  01 
-.11736  +  01 
.73706+00 
.47866+00 
.3258E+00 
.51606+00 


-.4948E-01 
-.24136+00 
-.82666+00 
-.12636+01 
-.1521E+01 
-.1674E+01 
-.1484E+01 


-.5122 
.4144 
-.2413 
.,6849 
-.1072 
-.1340 
-.1521 
-.l6«9 
..1660 
-.1292 


OE  +  OO 
8E-13 
3E  +  00 
9E  +  00 
4E  +  01 
OE  +  01 
46  +  01 
76  +  01 
26+01 
2E  +  01 


-.179136+01 
-.19690E+01 
-,l6t5«E+01 
-.11734E+01 
-.825666+00 
-.59255E+00 
-.429716+00 
-.325786+00 
-,400006+00 
-.10000E+01 


-.2087 
-.3102 
-.3845 
-.8266 
-.1174 
-.1407 
.1570 
-.1674 
.1600 
.1000 


3E+00 
96-01 
9E  +  00 
OE  +  00 
3E  +  01 
5E  +  01 
3E  +  01 
2E+01 
06  +  01 
06  +  01 


BEGIN  ITERATION  NUmBfr 


CT  «    -, 100006*00      CTL  s    -.10000E-01      PHI  a     .50000E+01 

THERE  ARE     t  ACTIVF  CONSTRAINTS 
CONSTRAINT  NUMBERS  Apg 
10 

THERE  ARE     0  ViOLAtED  CONSTRAINTS 

THERE  ARE     0  ACTIVp  sloE  CONSTRAINTS 

GRADIENT  OP  OBJ 

I)      ,12385£*03   ..587l7Et03    ,8o«tlE+0l 

GRAOIENTS  OF  ACTIVE  iNO  VIOLATED  CONSTRAINTS 
CONSTRAINT  NUMBER    To 

1}     -,123«2e*02    .12633E+02   0, 

PUSH-OFF  FACTORS,  (ThETA(I),  Isl,NAc) 
t)     0, 

CONSTRAINT  PARAMETER.  BET*  «      ,7a996E*00 

SEARCH  DIRECTION  (S-vECTOR) 

1)      .IOOOOe+OI    .97698E+00   -,3tt9U0E-0l 

ONE-DIMENSIONAL  SEARCH 

INITIAL  SLOPE  =   -,^01E*03   PROPOSEO  ALPHA  s    .3655E-02 


*  *  CONSTRAINED  ONE-0IHpnSIONAL  S£ARCH  INFORMATION  *  *  * 

PROPOSED  DESIGN 
ALPHA  a   .8655UE-02 
X-VECTOR 
-.5109E.02    ,l<?6aE-01   ..7756£-02 

OBJ  «    .15172E+02 

constraint  values 

-,1000E*01  -.lOOOE+O!  ..l53aE*01  -,0663EtOO  -.l8a2E*ol  -,l580E*00  -.1982E+01  -,18*J 

-,2000£*01  ,532<?E-13  ..1937E+01  -.6340E-01  -.1823E+01  -.1770E+OO  -.1684E+01  -.316. 

».l538e*01  -,462lE*00  -.1398E+01  -.6022E+00  -.1272£*01  -.7280E+00  -.1164E+.01  -.835; 

-.1076E»01  -.92US£t00  -,100«E*01  -,9964£+00  -,9aa&E*00  -.1055E+01  -.8931E+00  -.110] 

-.8«33E*00  -.1157E  +  01  -.7894£.k)0  -.1211E+01  -.72fe6E*00  -.1273E  +  01  -.65UE  +  00  -,134< 

-.5629E+00  -.ia37E+01  ..U627E+.00  -.1537E+01  -.3565E+00  -. lba^E+O 1  -.2341E+00  -.174t 

-,170«E*00  -.le30E-f01  -,l26lE*00  -,l87«E  +  0l  -.148SE+00  -,l»51Et01  -.2720E+00  -.172J 

-.5389E+00  -.1U61E+01  ..lOOOEtOl  -.1000E+01 

TWO-POINT  INTERPOLATION 

PROPOSED  DESIGN 
ALPHA  a   .13765E-01 
X-VECTOR 


79 


'.3525E-14         .2463E-01      -.7934E-02 
OBJ    *         ,13638E*02 


CONSTRAINT    VALUES 
-,1000E*01       -.1000E+01 


-.2000E*01 
>,1492E*01 
>,1094E+oi 
'.95lSE*00 

.,6ttlbEtOO 
-.8250E-01 
,.a3<»2E*00 


.7698E-13 
-•5079E*00 
-,9056E*00 
-.10u9E*01 
-.1359E+01 
-.1<H7E*01 
-.1561E*01 


-. l561£*01 
.,l9t7E*01 
-.1359E+01 
-,1049E*01 
-.90s<,E*00 
-,5079E+00 

0. 

-,10006+01 


-,a392E+00 
-.8250E-01 
-.6**l5E*00 
-.95l5E*00 
-,109aE*0l 
-,1492E*01 
-.2000E*01 
-.lOOOEtOl 


*  *  *  EnO  OF  ONE-OihfnSIONAl  SEARCH 
CALCULATED  ALPHA  a     .13765E-01 


OBJ 


,l3638aE*02 


DECISION  VARIABLES  (x-VECTOR) 
1)     -.35250E-14    ,2a63lE-0i 


*.793a2E-02 


■,  1872^  +  01 
..l788E*0l 
•,12«7E*0l 
>.1015E*0l 
•.84HE  +  OO 
•,3602E*00 
•.1179E-03 


..1281E+00 
•  ,21l7E*00 
'.7534E+00 
-.9852E+00 
-.1  159E+01 
..1640E+01 
>.2000E*01 


•.2000E+01 
•.1640E  +  01 
-,1159Et01 
■.9852E  +  00 
..7534E  +  00 
>.2U7E*00 
•,128lE*00 


-,1179E-< 
-,3602E+< 
-.8411E-M 
-,1015E*< 
-.  1247E-M 
-,1788£*( 
-,1872E+( 


CONSTRAINT  VALUES  (G 

IvECTOR) 

t) 

-.100006*01 

-.100006*01 

-.15608E*01 

-.43920E+00 

-.18719E+01 

-.12806E+00 

7) 

-,1999<»E*01 

-.11790E-03 

-,20000£*0l 

.769756-13 

-,19175E*0! 

-.82503E-01 

13) 

-.l7883E>0t 

-.21  172E  +  00 

-.lb398E+0l 

-.3bOl6E*00 

-.14921E+01 

-,5078oE*00 

1*) 

-,13585E*01 

..baiattE+OO 

-,12466£*0l 

-.753456*00 

-.115896+01 

-.84107E+00 

25) 

-.109auE+01 

-!('056lE>00 

-.10o8SE*01 

-.951ubE*00 

-,101a8E*01 

-.98522E+00 

31) 

-.985226*00 

-.  10148E  +  01 

-,''5l46t*00 

-.10485e>01 

-,<?05blE+00 

-. 109446*01 

37) 

-,84io7E*00 

-.U589Ef01 

-,75345E*00 

-.124666*01 

-.641486*00 

-,13585E*01 

43) 

-.50786E*00 

-,lu9216*01 

-.36016E+00 

-.163986*01 

-.211726*00 

-.17883E+01 

49) 

-.82503E-01 

.. 1<»175E*01 

o. 

-.200006*01 

-.1  1790E-03 

-.199996*01 

55) 

-.12806E+00 

-.  1871<»E*0  1 

-,tt3920E*00 

-,15608E*01 

-.10000E+01 

-.10000E+01 

BEGIN  ITERATION  NUMBER     3 

CT  s    -,10000E*00      CTL  s    -,10oOOE-01 

THERE  ARE     a  ACTlVF  CONSTRAINTS 
CONSTRAINT  NUMBERS  Are 
8    10    51    53 

THERE  ARE     0  VIOLATED  CONSTRAINTS 

THERE  ARE     0  ACTIVp  slDE  CONSTRAINTS 

GRADIENT  OF  OBJ 

1)      .39i38e*03    .660S6E+03    ,67398E*0l 

Gradients  of  active  and  violated  constraints 
constraint  number    8 

t)     -.12733E+02    ,16704E*02   0. 

CONSTRAINT  MUMBER    To 

I)     -.12342£*02    . 12633E+02   0, 


PHI 


,500006*01 
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CONSTRAINT  NUMBER    si 

1)      .12342E+02    .12633E+02   0. 

CONSTRAINT  NUMBER    S3 

1)      ,12733fc*02    . 1670«E*02   0. 


PUSH-OFF  FACTORS,  (TmeTA(I),  Isl,NAC)- 

1)     0.  0.  0.  0. 

CONSTRAINT  PARAMETER.  bEtA  a     ,lU2aEt01 

SEARCH  DIRECTION  (S-vECTOR) 

1)     -.59251E+00   ..10000E+01   -,10203£-01 

ONE-OIM£NSIONAL  SEARCH 

INITIAL  SLOPE  *      -,8g2S£*03   PROPOSED  ALPHA  =    .30S6E-02 


*  *  CONSTRAINED  ON£-OIMPNSlONAL  SEARCH  INFORMATION  *  *  * 


PROPOSED  DESIGN 
ALPHA  *   ,305t>2E-02 
X-VECTOR 
'.18I1E-02    .2157E-01 


OBJ    s         .14934E+.02 
CONSTRAINT    V4LUES 


-,1000E*0l 
•.l98«E*01 
..1520E  +  01 
'.1  100E  +  01 
.,P050E*00 
■  ,5984Et00 
>.1225E*00 
•.U9Q9E  +  00 


-.1000E+01 
-.l62feE-01 

".8997E+00 
-,1095Et01 
-,l«02E*01 
-.1877E+01 
-.1509E+01 


..7965E-02 


-.1535E+01 
-.1915E+01 
..138BE+01 
-.10U1E+01 

-,85l9E+00 
-.USOIE+OO 
-.6096E-01 
-.  lOOOEtOl 


..«652EfOO 
..8459E-0I 

•  ,6123E*00 
-.9592E+00 

..naaE+oi 

..1520E  +  01 
-,1939E>01 
..lOOOEtOl 


..1839E  +  01 
•.  1  800E  +  0  1 
■.1272E+01 
'.9927E+00 
.,7850E>00 
..3527E>00 
'.7a22E-0l 


TXO-POINT  INTERPOLATION 


PROPOSED  DESIGN 

ALPHA  =  .10361E-02 
X-VECTOR 

'.6l39E-03  .2359E-01 

OBJ  «    ,14034E*02 

CONSTRAINT  VALUES 
•, lOOOEtOl   -•1000E+01 


•,199«E*01 
..1502E+01 
'.1096E+01 

..9357E+00 
'.6269E>00 
-.9606E-01 


-.5512E-02 
-,498uEtOO 
-.903(,E*00 
-,10&«E*01 
-.1373E>01 
•.1904E+01 


-,79«S£-02 


-.1552E+01 
-,19l7E*01 
..1368E>01 
..I0a6£>01 
„.987UE+00 
-.498SE*00 
..2067E-01 


>,aasoE*oo 

'.8321E-01 
..6316E+00 
'.95U1E+00 
..1113E  +  01 
-.1502E+01 
..1979E*0i 


-.1861E+01 

-,1792E*01 
■,1255Et0l 
•.IOO7E+OI 
-,822lE  +  00 
'.3576E  +  00 
•.2524E-01 


..1611E+00 
>.200«£*00 
-.7280E+00 
-.1007E  +  01 
..12I5E+01 
.,  1647E+01 
-.1926E+01 


•  .1972E  +  01 
•.1662E  +  01 

•  .U76E+01 

.,9U97Ef00 
..7009£t00 
.2277E+.00 
•,2015Et00 


-.28UE 
-.338«E 
-.8<>i7E 
-.1050E 
-.1299E 
-.1772E 
-.1798E 


..1393E  +  00 
•.2079E+00 
.,7a«8E*00 
-.9927E  +  00 
..  t  178E  +  01 
'.16"2E*01 
..1975E  +  01 


•.1990E+01 
>.1647E*01 
-.1165E+01 
>.9732Et00 
..7356Et00 
>.2l7lE>00 
>.1530E*00 


-,9608E« 
-.3528EH 
-,8352F< 
-.1027EH 
-.1264E-I 
-,1783Ei 
-.1847E-t 
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•.4567E+00   -.1543E+01  -.1000E+01   -.1000E+01 
THREE-POINT  INTERPOLATION 

PROPOSED  DESIGN 
ALPHA  s   .30615E-03 
X-VECTOR 

■,18t4E-03    .2432E-01  -.7937E-02 

OBJ  a    .13750E+02 

CONSTRAINT  VALUES 

•,1000e*01   -.tOOOp+Ol  ..1558E+01   -.4418E+00   -.1869E+01   -.13146+00   -.1997E+01   -.2922E-02 

..1998E  +  01   -.1629E-02  -,l9i7E*0l   -,827lE-01   -.l7«9E+ol   -.21066+00   -.1642E+01   -.35806  +  00 

'.1«95£+01   -. 505)6  +  00  -.13616+01   -.63806+00   -.12<J9E*01   -.7509E+00   -.11616+01   -.83936+00 

.,1095E>01   -,9o5oE*00  ..1048E+01   -.9522E+00   -.10136+01   -.98746+00   -.9817E+00   -.10186+01 

'.9«68E  +  00   -,10s3E  +  0l  -,q002E+00   -.11006+01   -.83556  +  00   -.1U5E  +  01   -.7482E+00   -.12526  +  01 

..6372E+00   -.1363E+01  ..5051E+00   -.1495E+01   -,359«E+00   -.1641E+01   -.21336+00   -.17876+01 

'.8651E-01   -.1Q13E+01  -,6107E-02   -,1994£+01   -,75«lE-02   -.1992E+01   -.13546+00   -,18bbE+01 

',4444£+00   -.1556E+01  -.1000E+01   -.10006+01 

*  *  *  End  op  on£-oimfnsIonal  search 

calculated  alpha  s  .69389e-17 

obj  s    .136384e+02    no  change  on  obj 

DECISION  VARIABLES  (y-vEc^OR) 

1)     -.352586-14  .2a63lE-01   -.7"342E-02 

CONSTRAINT  VAlUeS  (G-VEcTOR) 

1)     -.100006+01  -.1000OE+O1   -.15608E+01   -,a3920E*00   -.187196+01   -.12806E+00 

7)     -.199996  +  01  -.U790E-03   -,20000t+01    .76975E-13   -.191756  +  01   -.82503E-01 

13)     -.17883E  +  01  ..2U72E  +  00   -.lt>3986+01   -.3601bE+00   «.i4«»2l£+0l   -.50786E  +  00 

19)     -.13585E+01  ,.6ai48E+00   -.12466E+01   -.753456+00   -.115896+01   -.841076+00 

25)     -,109«U6+01  ,.9o56l6tOO   -.104856+01   -,95l«66+00   -.10148E+01   -.98522E+00 

3D     -.985226+00  -.101486+01   -,95l4bfc+00   -.104*56+01   -,9056lE*00   -,1094uE+01 

37)     -,84io7E+00  ..115896+01   -.753456+00   -.124666+01   -.641486+00   -.13585E+01 

«3)     -,5<>786E*00  -.la9216+01   -.360 16E+Q0   -.163986*01   -.211726*00   -.178836  +  01 

49)     -.825036-01  ..19175E+01   0.  -.20000E+01   -.117906-03   -.19999E+01 

55)     -.12Q06E+00  -.18719E+01   -.43920E+00   -.15608E+01   -, 100006*01   -.100006+01 


BEGIN  ITERATION  nUmBfr     4 

C.T  «    -.34200E-01      CTL  «    -.46416E-02      PHI  s     .50000E+01 

THERE  ARE     a  ACTIVp" CONSTRAINTS 

CONSTRAINT  NUMBERS  A*g  

8    10    51    53 

THERE  ArE     0  VIOLATED  CONSTRAINTS 

THERE  ARE     0  ACTIVp  SIDE  CONSTRAINTS 

GRAOlENT  OF  OBJ 

1)      ,39138E*03    .66056E+03    ,67398E*01 
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GRADIENTS  OF  ACTIVE  i^O  VIOLATED  CONSTRAINTS 
CONSTRAINT  NUMBER     8 

1)     -.60623E*00    .79S2,»Et00   0. 

CONSTRAINT  NUMBER    To 

1)     -.69883E+00    .7i529E-f00   0. 

CONSTRAINT  NUMBER    SI 

I)      .69883E+00    .71529E+00   0, 

CONSTRAINT  NUMBER    S3 

U      .60623E+00    ,79529Et00   0. 


PUSH-OFF  FACTORS,  (TheTA(I),  Isl,NAC) 

n       o,  o.  o,  o. 

CONSTRAINT  PARAMETER,  BETA  s     ,H624E*0l 

SEARCH  DIRECTION  (S-vECTOR) 

1)     -.59251E+00   ..iOOOOE+01   -,10203E*01 

ONE-OIMENSIONAL  SEARCh 

INITIAL  SLOPE  s   -.8Q25E+03  PROPOSED  ALPHA  -    .2291E-02 


»  *  CONSTRAINED  ONE-DlMpuSlONAL  SEARCH  INFORMATION  *  *  * 

PROPOSED    DESIGN 
ALt»HA    s       .22907E-02 
X-VECTOR 

-.1357E-02         ,223aE-01  ..7958E-Q2 

OBJ    =         ,1«579E*02 

constraint  values 

•,100O£t01   -.1000E+01  ..1S41E+01   -,a587E4.00   -.1847E+01   -,l528Et00   -.1979E+01   -.211 06- 

-.1988E+01   -.1219E-01  -,19l6E*0l   -.8a07E-01   -.1797E+01   -,2032E*00   -.lb56E*01   -.3438E 

•  .1513E  +  01   -.4869E+00  ..1380E  +  01   -,6l9t>E  +  00   -.12&6E+01   -,7344£*00   -.1172E+01   -,d281E 

-,1099E+01   -.9012E+00  -.l0a3E*01   -.9573E+00   -.9983E+00   -.1002E+01   -.9586E+00   -.10U1E- 

-,9l66E  +  00   -,1083E  +  01  ..8653E+00   -.1135E+01   -,799iE*00   -. 1 2 0 1 E. « 0 1   -.7140E+00   -.1286E- 

-,6<>92E*00   -.I391£*0t  -.4871E  +  00   -.  l5l3E*01   -,354ftE+00   -.lb^SE  +  Ol   -.2237E+00   -,1776£- 

_-.M25E  +  00   -.1888E  +  01  -.4569E-01   -,1954E*01   -,55&toE-01   -,l944fc+01   -,183lEf00   -.1817E- 

-,4779£*00   -.1522E+01  -.10O0E+01   -.1000E+01 

TWO-POINT  INTERPOLATION 


PROPOSED  DESIGN 

ALRHA  *  .78455E-03 
X-VECTOR 

.,4649E.03  .2385E-01   ..7942E-02 

OBJ  «    .I3977£t02 


83 


CONSTRAINT 

-.10O0E+O1  « 

-,1996E*01  • 

-.1499E+01  ■ 

•, 10966*01  • 

••939SE+00  « 

•,6304E*qo  « 

-.9277E-01  • 

-.4525E+00  ' 


VALUES 

.1000E+01 

,ai7aE-o<2 

•5007E+00 

,9041E*00 

.lObOE+Ol 

.1370E*01 

.1<>07E*01 

,1548E*01 


..1554E+01 
-.191 7E*0 l 
-.13<,6E  +  01 

.,ioa7t+oi 

-,«916E*00 
-,«50O7fc*00 
..1565E-01 
..  I000E  +  01 


-,aa59E>oo 

-,830«E-01 
-.63«0E*00 

-, 11086*01 
-,1«99e+01 
-,19«a£*01 
-,1000E*01 


•.1863E  +  01 
•.1791E  +  01 
-. 12536*01 
•,1009E*01 
'.82676*00 
,3582e*00 
. 191UE-01 


•.l365E*00 
•  ,2088E*00 
•.7«696*00 
.,99096*00 
•.U73E  +  01 
■,16426*01 
,19816*01 


-.19936*01 
-.16456*01 
-.1 1636*01 
•.97616*00 
-.73996*00 
-.21586*00 
-.14696*00 


-.73046-02 
-.35466*00 
-.83666*00 
-.10246*01 
-.12606*01 
-.17846+01 
-.18536+01 


THREE-POINT  INTERPOLATION 


PROPOSED  DESIGN 
ALPHA  s   .22044E-03 
X-VECTOR 
-.1306E-03    ,2aaie.oi 

OBJ  *    .137166*02 


CONSTRAINT 

-, 10006*01  « 

>, 19996*01  « 

-,149ue*01  • 

>.10«»5E*01  - 

-,948le*00  > 

-,6384E*00  • 

•,8S39E-01  • 

■taa29E>00  ■ 


VALUES 

.lOOOE+Ol 

.U73E-02 

,5o58E*00 

.9052E+00 

. 1052^*01 

.1362E+01 

.1915E+01 

,1557E*01 


-.7936E-02 


..1559E+01 
..1917E  +  01 
,.1361E  +  01 
..IQ48E  +  OI 
,.9017e+00 
..S059E+00 
,.a397E-02 
..1000E+01 


-,4auE  +  00 
-.8265E-01 
-,639«E*00 
-.9520E+00 
-,10<»8e  +  01 
-,149aE*0l 
-,199<>E  +  01 
-,1000E*01 


*  *  #  END  OF  0NE-DIMFn$I0NAL  SEARCH 
CALCULATED  ALPHA  =     .43368E-17 


OBJ 


,13638aE*02 


NO  CHANGE  ON  OBJ 


DECISION  VARIABLES  (,.yEcTOR) 

1)  -,352b7E.ia  .24631E-01 

CONSTRAINT  VALUES  (GIvECtOr) 

1)  -.1Q000E*01  ..10000E*01 

7)  -.199996*01  -.U790E-03 

13)  -.17883F+01  -,2ll7^Et00 

19}  -,13585E*01  „.6aia8E*00 

25)  -,10944e*01  -,9056lE*00 

31)  -,98522E*00  .,10143E*01 

-37)  -.841076+00  -,ll589Ef0l 

43)  «,50786E*00  ..ia92lE>01 

«')  -.825036-01  ..19l75E*01 

55)  -.128066+00  ..187196+01 


-.793a2E.02 


-. I5608fc*01 

-.200006+01 

-.163986+01 

-,12466£*0l 

-.10ag5EtOi 

-,95l46E*Qo 

•.753*»5£*00 

-,36016E*00 

0. 

-.43920E+00 


-.1870E  +  01 
-.1789E  +  01 
-.1248E*01 
•.1013E  +  01 
-.8370E  +  00 
•  »3596E*00 
-.5463E-02 


-.1304E+00 
-.2109E+00 
-,75l6E*00 
-.98686*00 
-. 1 163E+01 
-, 16406*01 
-.1995E+01 


-,a3920E+00 
.76975E-13 
-,3601<>F*00 
-.753456*00 
'.951U6e*00 
-.10485E*01 
-,12466E*01 
>.16398E*0l 
-.20000E+01 
-.15608E+01 


-.1998E*Q1 
>.19«1E*01 
-,1160E*01 
.98276*00 
-.74976*00 
■, 21296  +  00 
-.13346*00 


-.21376-02 
-.35866*00 
-.83986*00 
-.10176*01 
-.1250E+01 
-.17876*01 
-,  18676*01 


.,  18719£*01 
..19175E  +  01 
..U921E+01 
..11589E  +  01 
-.101486*01 
.,905olfc*00 
.,6«148E*00 
-.211726*00 
..H790E-03 
-,10000£*0l 


-,12806£*00 
-.825036-01 
-.507866+00 
-.841076*00 
-.985226*00 
-,1094tt6+01 
-.135856+01 
-.178836+01 
-.199996+01 
-.100006+01 


BEGIN  ITERATION  NUmBfr     5 

CT  s    -.11696E-01      CTL  *    -.21544E-02 

THERE  ARE     4  ACTIVp  CONSTRAINTS 
CONSTRAINT  NUMBERS  ABp 


PHI  s 


,500006*01 
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8    10    51    53 

THEHE  ArE     0  VIOLATED  CONSTRAINTS 

THERE  ARE     o  ACTIVp  slOE  CONSTRAINTS 

GRAOIENT  OF  08J 

1)      .39l38g>03    .66056E+03    ,67398£*01 

GRADIENTS  OP  ACjIvE  InO    vIOLAjED  CONSTRAINTS 
CONSTRAINT  NUMBER     8 

1)     -.12733E+02    ,16704E*02   -.11842E-H 

CONSTRAINT  NUMBER    To 

1)     -,123a2Et02    .12633E+02   0, 

CONSTRAINT  NUMBER    si 

1)      ,123U2E*02    .12633E  +  02   -.11842E-U 

CONSTRAINT  NUMBER    S3 

1)      ,12733£*02    ,l«»7oaEf02   -.29606£-U 


PUSH-OFF  FACTORS*  (Th£TA(I),  1=1, NAq) 

n        o.  o.  o.  o. 

CONSTRAINT  PARAMETER,  BETA  s     ,H62«4E*01 

SEARCH  DIRECTION  (S-v£CTOR) 

1)     -,5925i£+00   ..lOOOOEfOl   -.10203E-01 

ONE-DIMENsIONAL  SEARCH 

INITUL  SLOPE  =   -.8<?25E*03   PROPOSED  ALPHA  -    .1528E-05 


•  *  CQ^STRAINED  ONg-QlMpNSlONAL  S£aRCH  INFORMATION  *  *  * 

PROPOSED  DESIGN 
ALPHA  s   .15281E-05 
X-VECTOR 

-,90S4£-06    ,2«63£-01  .,793«E-02 

OBJ  »    ,13639E*02 

'CONSTRAINT  VALUES 

-.1000E+01   -,1000E*01  -.1561E+01   -,439?E*00   -.1872E+01   -,l28lE*00   -,2000E*0t   -.1319E- 

-.2000E+01   -.8130E-05  -.1917E+01   -.8250E-01   -.1788E+01   -,2117E*00   -,1640E*01   -.3602E' 

-.1«92£*01   -.5078E  +  00  -.1359E+01   -.6415E+00   -,1247£*01   -,753<iE*00   -,H59E-f01   -.  5«  1  IE- 

•,109«E>01   -.9056E+00  ..10«9E+01   -.951SE+00   -,1015E*0l   -,9852E»00   -.9B52E+00   -.10 15€- 

«.95l«E*00   -.10«9£+01  -,p05sE*00   -,109«£  +  01   -,8«10E  +  00   -,11s9£*01   -.7S34E+00   -.1247£< 

-,6ttl5E*00   -,1359£  +  oi  -.5078E+00   -,14<?2£*01   -,3602E*00   «,10<IOE  +  01   -.2117E  +  00   -.17B8EV 

-.8252E-01   -.I9I7E+OI  -.3048E-04   -.2000E+01   -.1550E-03   -.2000E+01   -.1281E+00   -,1872£< 

-,a392E>00   -.1561E+01  ..lOOOE+Oi   -,10O0E*Oi 

TWO-POINT  INTERPOLATION 


PROPOSED  DESIGN 
ALPHA  s   .53016E-06 
X-VECTOR 
'.3H1E-06    .2463E-01 

OBJ  *    ,l3o39E#02 


CONSTRAINT 

-,10O0E*Oi  « 
>,2000E*01 

>.ltt92E  +  01  • 

■,109aE>01  • 

.,9515E*00  • 

'.6alSE*00  - 

,.825lE-0l  ■ 

'.«392E*00  • 


VALUES 

•1000E+01 

,2«2lE-<>5 

.5079E+.00 

."056Ef00 

,10a<JE>01 

.135"E*01 

.1917E*01 

.1561E+C1 


-.793UE-02 


..1561E+01 
-• JO17E+01 
-,l359Ef01 

-.  10U<5E  +  01 
„.905oE*00 
-.5079E+00 
-,1057E-o« 
..tOOOEtOl 


-.43R2E+00 
-.A250E-01 
-,64l5E*00 
-,95l5E*00 
-.1094E+01 
-,1<JQ2E*01 
-.200OE+01 
-.lOOOEtOl 


>.1872Et.01 
'.1788E+01 
>.12«7E*01 
-.1015E+0I 

■  .841 1E*00 
•.3602E  +  00 
■.1308E-03 


..I281E  +  00 
'.2U7E+00 
.7534E+00 
.98S^E*00 
>,1159E*01 
-,16«0E*01 
.2000E+01 


-,2000E*01 
-.1640E*Ol 
-.1159E*01 
-,9852Ef00 
-,7b3aE*00 
-,2117E*00 
-.1281E+00 


-.1228E-03 
-.3602E+00 
-.84!  1£*00 
-.101bE*01 
-,12«7Et01 
-.1788E+01 
-. l»72E+Ol 


THREE-POINT  INTERPOLATION 


PROPOSED  DESIGN 

ALPHA  s  .15380E-06 
X-VECTOR 

•.9113E-07  .2U63E-01 


QBJ 


,13638E*02 


CONSTRAINT 

-.lOOOEfOl  ■ 

-.2000E  +  01  ■ 

-.ia92E  +  0l  - 

■,109«E  +  01  . 

..9515E*.00  < 

-.6al5E*00  • 

.,825oe-01  - 

-,4392E*00  - 


VALUES 

. lOOoEtOl 

.8lfl3£-06 

.507QE+00 

.9056E+00 

.1049E+01 

.135<JE*Ot 

.l"17Et01 
,156lE*01 


-.7934E-02 


..1561E*01 
-.1917E+01 

..t35<?E*01 
-.1049E+01 
..9056E+00 
-.«;079E  +  00 
,,30<sttE-05 
-.  1 OOOE  +  01 


-,a392E>00 
-.825OE-OI 
-,64l5E*0O 
-,95l5E>00 
-.1094E+01 
-,ia92E-»01 
-.2000E+01 
-.IOOOE+OI 


*  #  *  ENO  OF  ONE-OlMfNSlONAL  SEARCH 

CALCULATED  ALPHA  3     .25411E-20 

OBJ  a     ,136384E*02      NO  CHANGE  ON  OBJ 


DECISION  VARIABLES  (x-vEcTOR) 
I)     -.35267E-14    .24&31E-01 


CONSTRAINT  VALUES  (G- 


.1872E+01 
'.1788E  +  01 
-.  12«7E*01 

•  1  0 1 5E+0 1 

•.841 1E  +  00 
,3602E+00 
'.1216E-03 


-.79342E-Q2 


-,  1281E  +  00 
-,2117E>00 
-.7534E+00 
-.<?85<2E  +  00 
-.1159E+01 
-,l6u0£t01 
-.2000E+01 


>.20O0E*Ol 
•.loaoEfOl 
>.li59E*01 
,9«52E+00 
,753aE*.O0 
>,2U7Et00 
'.1281E  +  00 


-,U9iE-03 
-.3602E+00 
-.841 1E+00 
-.1015E+01 
-.1247E+01 
-.1788E+01 
-.1872E+01 


1) 
7) 
15) 
1') 
2S) 
31) 
37) 
43) 
49) 

55) 


.10OOOE+01 
.19999E+01 
.17883E+01 
.13585E+01 
.10944E+01 
,98«522e*00 
,84io7E*00 
.50786E+00 
.82503E-01 
.12806E+00 


VECTOR) 

-.  tOOOOE  +  Ol 

-.15608E+01 

-.43920E+00 

-,1871<?E*01 

-.12806E+00 

i,ll790E-03 

-.20000E+01 

.7697SE-13 

-.19175E+01 

-.82503E-01 

,.2H72EtOO 

-,lb398Ef0l 

-,3601bEfOO 

-,U921E*01 

-.5078b£*00 

.#6al48E+00 

-.12466E+01 

-,7534bE+00 

-.11589E+01 

-.84107E+00 

-,9o56lE+00 

-.10485E+01 

-.95146F+00 

-.10148E+O1 

-,98522E*00 

-.10148E+01 

-.95146E+00 

-.10485E*01 

-,9056lE*00 

-.10944E+01 

.,1158<?E*01 

-.75345E+00 

-,12466E*01 

-,64148E>00 

-.13585E*01 

-.14921E+01 

-.36016E+00 

-.16398E+01 

-.21172E+00 

-.I7883£t-01 

-.19175E+01 

». 

-.20000E+01 

-.11790E-03 

-.I99<»9e>01 

-,1871<>E*01 

-.43920E+00 

-.15608E+01 

-.10OO0E+O1 

-.10OOOE+01 
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FINAL  OPTIMIZATION  INf0rMATION 

OBJ  »     ,136J8uE*02 

DECISION  VARjABlES  (*-vECTOR) 
1)     -.35267E-U    ,2a63lE-01 

Constraint  values  (G-veCtor) 

1)  -.IOOOOE+01  ..lOOOOE+Ol 

7)  -.19999E+01  ..117O0E-03 

lS)  -.17883E+01  ,.2tl72E>00 

19)  -tl3585E*01  -.6Ul«BE+OU 

25)  .,109a4E*01  .  9056lE+.00 

31)  -,98s22E*00  .. 10 1 atiE+O 1 

37)  -,8Uio7E*00  ..US89E+01 

tt3)  -,50786£*00  -,la92lE-r01 

49)  -,82503E-01  -.  lo  17SE*01 

55)  -,12806E*00  ..1871<?E  +  01 


-,793a2E-02 


-.15608E  +  01  -,a3<?20E  +  00  -.18719E+01  -.12806E+00 

-.20000E+01  .7697SE-13  -.19175E+01  -.82503E-01 

-,lo3<»8E  +  0i  -,3601*>E  +  00  -,  1 «92lE*0 1  -.5078&E+00 

-,12ttb6E>01  -.753«5E*00  -.11589E+01  -.8U107E+00 

-,10<485E>01  -.95ia6E  +  00  - , 1 Q 1 «8fc.  +  0  I  -.98522E+00 

-.95la6E  +  00  -.10U85Et-01  -,R0<56iE  +  00  -,10<)«4E*01 

-,753«5E  +  00  -,12«66E-).01  .,64148fc«-00  -,1358SEt01 

-,3601bE*00  -. lbS^ee+O 1  -.21172E+00  -,17883E*01 

0,  -.20000E+01  -.11790E-03  -.19999E+01 

-,43920E*00  -.15608E+01  -,10000E*0i  -.10000E+01 


THERE  ARE     a  ACTIVp  CONSTRAINTS 
CONSTRAINT  NUMBERS  Are 
8    10    51    53 

THERE  ARE     0  VIOLATED  CONSTRAINTS 

THERE  ARE     0  ACTIVp  slOE  CONSTRAINTS 

TERMINATION  CRITERION 

ABS(l-OBJ(i-l)/nBj(I))  LESS  THAN  OELFUN  FOR   3  ITERATIONS 
ABS(08J(I)-0BJ(r-t ))    LESS  THaN  OAflFUN  FOR   3  ITERATIONS 


NUMBER  OF  ITERATIONS  *     5 
OBJECTIVE  FUNCTION  W4S  EVALUATED 
CONSTRAINT  FUNCTIONS  *ERE  EVALUATED 


27   TIMES 
27   TIMES 


PHASE  DISTORTION  CALCULATIONS 


BEAM  ORIENTATION  NUMBER  =     1 

AZMUTH  ANGLE 

s       0 

,00  DEGREES 

ELEVATION  ANGLE 

«      50 

,00  OEGREES 

MACH  NUMBER 

a 

.70 

R          ETA 

X 

Y 

A 

N 

0.              0.00 

0. 

0. 

.1951E+00 

0. 

.500CE-01      0.00 

o. 

.5OOOE-OI 

.1536E+00 

.4060E+00 

,5oooE-oi    45.00 

.3536E-01 

.3536E-01 

.1646E+00 

,294b£*00 

.5000E-01     90.00 

.5000E-01 

.667SE-09 

.1928E+00 

.1179E-01 

.5000E-01    135.00 

,3536E-01 

-.3536E-01 

.2230E+00 

-.2882E+00 

.5000E-01    180.00 

.1335E-08 

-.5000E-01 

.2361E+00 

-.4180E+00 

.5000E-01    225,00 

,,3556E-01 

-.3536E-01 

.2230E+00 

-,2882£*00 

.5000E-01    270.00 

-.5000E-01 

-.2002E-08 

.1928E+00 

.11 79E-01 

.5000E-01    315.00 

..3536E-01 

.3536E-01 

,  164fe£*00 

,294to£+00 

.1000E+00      0.00 

0. 

.1000E+00 

.1117E+00 

.8038E+00 
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,10006+00 

. loooe  +  00 

,10006+00 
.10006+00 
.10006+00 
.10006+00 
.10006+00 


45.00 
90,00 
135,00 
180.00 
225.00 
270.00 
315.00 


,70716-01 

. 10006*00 

,70716-01 

.2&70E-08 

..70716-01 

-.10006*00 

-.70716-01 


.70716-0*1 
.13356-08 
-.70716-01 
-.10006+00 
-.70716-01 
-.40056-08 
.70716-01 


,13166+00 
,18586+00 
,24836+00 
,276*6+00 
,24836+00 
, 18586+00 
.13166+00 


,59816+00 

.47406-01 

-, 56O66+00 

-.8476E+00 

-,56e66+00 

.47U06-01 

.59816+00 


ZE&NICKE  COEFFICIENT.;/ 
AVERAGE  s    .132226-02 


TILT,  X  s 

,6°462E-ni 

FOCUS    a 

.740276-03 

ASTIG    a 

-.10778E-0? 

COMA     s 

,42i<»6e-oa 

Y  =   -,56737^-03 

,7b82fee-05 
-.207576-Q7   -.165856-03 


.136406-02 


PHASE  DISTORTION  CALCULATIONS 


BEAM  ORIENTATION 

AZMUTH  ANGLt 

6LEVATI0N  ANGL6 

MACH  NUMBER 

R  ETA 

0.  0.00 

.5000E-01  0.00 

.S0006-01  45.00 

.5000E-01  90.00 

,50006-01  135.00 

,5000E-01  180.00 

.50006-01  225.00 

.50006-01  270.00 

.50006-01  315.00 

.10006+00  0.00 

.10006+00  45.00 

,10006+00  90.00 

.10006+00  135.00 

,10006+00  180,00 

,10006+00  225.00 

.10006+00  270,00 

,10006+00  315,00 


NUHq£P  - 


a5.00 

30,00 

.70 


DEGREES 
DEGREES 


0. 

0. 

,35366-01 

.5000E-01 

.35366-01 

J335E-08 

-.35366-01 

-.  50006-01 

-.35366-01 

0. 

.7o7lt-01 

.10006+00 

.7071E-01 

,26706-08 

-.707U-01 

-.  10006  +  00 

-.70716-01 


0. 

,50006-01 

,35366-01 

.66756-09 

-.35366-01 

-.50006-01 

-.35366-01 

-.20026-08 

.35366-01 

.1000E+00 

.7071E-01 

.13356-08 

-.7071E-01 

-.10006+00 

-.70716-01 

-.40056-08 

.70716-01 


.25916+00 
.19736+00 
.221°E+00 
.26956+00 
,30906+00 
,31576+00 
,23946+00 
.24666+00 
.20936+00 
, 1 1956+00 
,  17246  +  00 
,27776+00 
,35906+00 
.36766+00 
.31346+00 
.23236+00 
.15386+00 


0. 

.49S0E+00 

.23496+00 

-.Ifl336+U0 

-.48116+00 

-.47166+00 

-.19236+00 

.17976+00 

.46006+00 

.11516+01 

,57156+00 

-.37006+00 

-,9916fc+00 

-.91816+00 

-.34516+00 

,35745+00 

,96606+00 


2E"NICKE  COEFFICIENTS/ 
AVERAGE  3    .43769E-02 


TILT,  X  s 

.84736E-01 

Y  « 

-.31425E-01 

FOCUS    s 

,29497E-^? 

ASTIG    s 

.17874E-02 

.391766-02 

COMA     ■ 

.389i2£-o3 

,92258E-04 

•  1 7 1 1  lE-02 

.162106-02 

PHASE  DISTORTION  CALCULATIONS 

BEAM  ORIENTATION  NUHqgff  =     ] 
AZMUTH  ANGLE  « 

ELEVATION  ANGLE  s 


90,00  06GREES 
10.00  DEGREES 
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MACH  NUM8£R 

a 

.70 

R 

ETA 

X 

y 

A 

N 

o. 

0.00 

0', 

0. 

«3aaoE>oo 

0. 

.5000E-01 

0.00 

0. 

.5000E-01 

.2707E+00 

.5017E+00 

.5000E-01 

45.00 

,3536E-01 

.3536E-01 

.2931E+00 

,32«7Ef00 

.5000E-01 

90.00 

.5O0OE-O1 

•6675E-09 

•  Siil^Z.  +  M 

-.1160E-02 

.5000E-01 

155.00 

.3536E-01 

-.3536E-01 

,39o3E*00 

-.  1608E*00 

.5000E-01 

180.00 

.1335E-08 

-.5000E-01 

.aOb6E*00 

-.2919E+00 

.5000E-01 

225.00 

..3536E-01 

-.3S36E-01 

,39o3E*00 

-t  1608E  +  00 

.5000E-01 

270.00 

-.5000E-01 

-.2002E-08 

.3<i39E*0f) 

-.UbOE-02 

.5000E-01 

315.00 

-.3536E-01 

.3536E-01 

,2931E*00 

,32«7E*00 

.1000E+00 

0.00 

0. 

,1000E*00 

.1783E+00 

.1295E+01 

.1000E+00 

05.00 

.7071E-01 

.7071E-01 

.2370E+00 

.8055E+00 

,1000E*00 

'0.00 

.1000E+00 

.1335E-08 

.3435E+00 

-.487SE-02 

.1000E+00 

135.00 

.7071E-01- 

-.7071E-01 

,a256E+00 

-.4397E+00 

.100OE+OO 

180.00 

.2670E-08 

-,1000E*00 

,a51«E*00 

..6368Et.00 

.1000E+00 

225.00 

-.7071E-01 

-.7071E-01 

,u2S6E*00 

-.U397E+00 

.lOOOEfOO 

270.00 

-.1000E+00 

-.U005E-08 

,3a35E*00 

-.4875E-02 

.1000E+00 

315.00 

-.7071E-01 

.7071E-01 

,237a£*00 

.8055E+00 

ZERNICKE  COEFFICIENT^/ 
AVERAGE  s    .18672E-01 


TILT,  X  a 

FOCUS  s 

ASTIG  « 

COMA  s 


.73271E-01 
.780U3E-n? 

.535<?4E-n2 
.23o76E-n2 


-.45822E-00 
.10126E-0« 


'.50955E-03 


.41Q76E-02    .12251E-02 


FLO*  FIELD  FOR  THETA 


0.000  DEGREES 


MACH  NUMBER 


.,«000E*01 

>,3600E*01 

-,3200E*01 

-.2800E+01 

,,2400E*01 

«,2000Et01 

..1600E+01 

..1200E+01 

-,8000£*00 

•,aOOOE*00 

,a974E-t3 

.4000£»00 

,8000E*00 

.1200E+01 

.1600E+01 

.2000E+01 

,2aOOE*01 

,2800E*01 

,3200E*01 

•3600E+01 

,«0OOE*01 


1000E*^i 
1000E+O1 
I000£*fli 
1000E  +  (il 
1000E*ol 
1000E>Ot 
1078£*01 
1193E-»-(U 
1265E*nt 
129u£+oi 
1300E>nt 
129«E+oi 
12fe5E*ot 
U93E*ni 
1078E+01 
l000E>ni 
lOOOE+oi 
lOOOE+nt 
lOOOE+oi 
lOOOE+nt 
1000E*oi 


.700 

PHI 

..125aE-0t 

■.1319E-01 

..377UE-02 

'.5857E-02 

..3202E-01 

'.8U5E-01 

..10i2fc  +  00 

-,8a7lE-01 

..5571E-01 

-.2<,ttlE-01 

.7817E-10 

.2681E-01 

.5571E-01 

.8a71E-01 

.1032E+00 

,81b5E-01 

,32a2E-01 

.3857E-02 

,377a£.02 

.131 9E-01 

.1254E-01 


J 
.1820E-01 
.155UE-01 
,225aE-01 

•.3198E-01 
,1075E*00 

'.123bE*00 

..4248E-01 
.3381E-01 
.6501E-01 
.6833E-01 
.6565E-01 
.6833E-01 
.6501E-01 
.3381E-01 

■,a2a8E-01 
.1236£t00 
,1G75E*00 
.3198E-01 
.225UE-01 
.1550E-01 
.1820E-01 


.2255E-01 

.2079E-01 

-,l9a6E.01 

-,al96E-01 

.1389E-01 

.1328E+00 

,182a£+00 

.1370E+00 

.7915E-01 

,33l(?E-<31 

-,122<>E-13 

-.3319E-01 

-.7915E-01 

-. 1370E+00 

-,l82aE+00 

-. 1328E*00 

-.1389E-01 

,ai9b£-01 

,1<?46E-01 

-.2079E-01 

-.2255E-01 


CP 

.3588E-01 

-,3laaE-01 

-,45«7E-01 

.6221E-01 

,2ia7Et00 

,22q5E*00 

,5lfe7E-01 

-.8639E-01 

-,1363Ef00 

-.1378E+00 

-.1313E+00 

-,1378E*00 

-,1363E+00 

-.8639E-01 

.5U7E-01 

.2295E+00 

,21a7£*00 

.6221E-01 

-.05U7E-01 

-,31aaE-01 

.3588E-01 
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SURFACE  DEFINITION      (EPS  s    ,30o> 

POLYNOMIAL  COEHCIENfs  U(I),  I=0,M4xK)  IN  x-DIRECTION 

.10000E+01  -.563a3F.i3  -,  1  0591E  +  00  .  ,28422e-13  -,13454£+00 
-.35267E-14   ,2<J631e-o1 

POLYNOMIAL  COEFICIENts  (B(I}#  Iso,m»XP)  IN  ThETA. DIRECTION 
.iOOOOE+Ot  0.  -,l8333EfOl  0,  .84895E+00 

0,  -.7<»342f-02 


COORDINATES 

X 

Z 

Z-PRIME 

-2,200 

0,0000 

0,0000 

-2.000 

.0000 

-.0000 

-1.800 

.0247 

.2182 

•1.600 

.0781 

.2981 

-1.400 

.1383 

.2"»35 

-1.200 

.1926 

.2449 

-1.000 

.2353 

.1807 

-.800 

.2651 

.1190 

-.600 

.2837 

,06<»6 

-.400 

.2939 

.0353 

-.200 

.2987 

.0140 

.000 

.3000 

-.0000 

.200 

.2987 

-.0140 

.400 

.2<»39 

-.0353 

.600 

.2837 

-.069& 

.800 

.2651 

-,1190 

1,000 

.2353 

-.1807 

1.200 

.1926 

-.2449 

1.400 

.1383 

-.2935 

1.600 

.0781 

-.2981 

1.800 

.0247 

-.2182 

2.000 

.0000 

.0000 

2.200 

0,0000 

0.0000 

ThETA 

RADIANS 

DEGREES 

Z 

Z-PRIME 

-1,152 

-66.0000 

0.0000 

0,0000 

-1.047 

-60.0000 

.0000 

-.0000 

-.942 

-54,0000 

.0107 

,19oS 

-.838 

-48.0000 

.0386 

.3284 

-.733 

-42.0000 

.0776 

,4081 

-.628 

-36.0000 

.1224 

,4398 

-.524 

-30.0000 

.1683 

.4303 

-.419 

-24,0000 

.2113 

.3861 

-.314 

-18,0000 

,2482 

.3140 

-.209 

-12,0000 

,276a 

.2210 

-.105 

-6,0000 

.2940 

.1140 

.000 

.0000 

.3000 

-.0000 

.105 

6,0000 

.2940 

-.1140 

.209 

12,0000 

.2764 

-.2210 

.314 

18,0000 

.2482 

-,3iao 

.419 

24,0000 

.2113 

-.3861 

.524 

30,0000 

.1683 

-.4303 

.628 

36.0000 

.1224 

-.4398 

.733 

42.0000 

.0776 

-.4081 

.838 

48.0000 

.0386 

-.3284 
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.942 

51,0000 

,0107 

-,1<*»S 

I, QUI 

60.0000 

.0000 

,0000 

1.152 

66,0000 

0,0000 

0,0000 

SUM  OF  SQUARES  OF  PnisF.  DISTORTION  a   ,13638F*02 
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PROGRAM  FLOW  CHARTS  AND  FORTRAN  VARIABLES 
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COPES /CONMIN  FORTRAN  ROUTINES 

FORTRAN 
ROUTINE 


PURPOSE 


COPES     CONtrol  Program  for  Engineering  JSynthesis.  This  is  the  main 
program  which  organizes  all  design  and  analysis  operations. 

COPE01    Reads  COPES  input  data. 

COPE02    Controls  optimization  process. 

COPE03    Calculates  objective  and  constraint  functions  in  the  form 
required  by  CONMIN  and  performs  data  transfer  operations. 

COPE04  Controls  sensitivity  analysis  process. 

COPE05  Prints  sensitivity  results. 

COPE06  Controls  two-variable  function  space  analysis  process. 

COPE07  Prints  two-variable  function  space  analysis  results. 

ANALIZ    User  supplied  subroutine  for  analysis  of  the  problem  under 
consideration. 

CONMIN    Control  routine  for  CONs trained  function  MINimization. 

CNMN01    Calculates  gradients  by  first  forward  finite  difference. 

CNMN02    Calculates  search  direction  by  Fletcher-Reeves  Conjugate 
Direction  Method. 

CNMN03    Solves  one-dimensional  search  for  unconstrained  problems. 

CNMN04    Finds  the  minimum  of  a  function  by  polynomial  interpolation. 

CNMN05    Calculates  search  direction  by  Zoutendijk's  Method  of  Feasible 
Directions. 

CNMN06    Solves  one-dimensional  search  for  constrained  problems. 

CNMN07    Finds  the  zero  of  a  function  by  polynomial  interpolation. 

CNMN08    Solves  the  direction-finding  sub-problem  in  Zoutendijk's  Method 
of  Feasible  Directions. 


95 


"" 

^T 

—i 

^ 

>* 

§ 

CO 

CO 

co 

b 

W 

w 

Ed 

Ha 

33 

23 

C3 

P- 

XXI  T 


-: 

Ed 
O 


H 

T 


> 

T 


CO 


I 

Ed 

N 


< 


Pi 


JtJ 


J 


o 

p- 
i-> 

OA 
X 


CO 


TJ 


2 

pi 

N 


►J 

C- 


X 


H 

z 

t-l 

Es- 

06! 


CO 

p- 


T 


o 
x 


Q 

z 
c 
a 

S3 


5-i 
CO 


X 


p- 
p- 
o 


Ed 
O 


Ed 

P- 
C 

*J 

CO 


H 

ci 
P- 

CO 


H 
9 

P- 
Z 


TT  T  T  T 


5 


96 


LASER  TURRET  ANALYSIS  FORTRAN  ROUTINES 

FORTRAN 
ROUTINE 


PURPOSE 


ANALIZ    Control  routine  for  turret  analysis. 

BCOND     Determines  the  dependent  coefficients  of  the  polynomial  shape 
functions  to  satisfy  the  geometric  boundary  conditions. 

BESJ  Calculates  the  J  Bessel  functions. 

BESK  Calculates  the  K  Bessel  functions. 

BESY  Calculates  the  Y  Bessel  functions. 

CPPRNT  Prints  perturbation  velocities  and  pressure  coefficient. 

DOPL  Calculates  the  change  in  optical  path  length  along  a  ray. 

FCOEF     Calculates  and  saves  coefficients  for  Fourier  Series  approximation 
to  the  turret  geometry. 

FXTOK     Calculates  the  Fourier  coefficients  of  X  . 

FXY34     Fits  a  surface  approximation  to  a  three  or  four  cornered  segment 
of  phase  distortion  within  the  laser  beam. 

GELIM2    Solves  a  set  of  linear  simultaneous  equations  using  Gausian 
elimination  with  pivot  search. 

IZERN     Calculates  Zernicke  functions  for  a  prescribed  section  of  the 
laser  beam. 

PHDIST  Calculates  phase  distortion. 

PHIUV  Calculates  potential  and  perturbation  velocities. 

PHUVNM  Calculates  n,ra  component  of  potential  and  perturbation  velocities. 

REFIND  Calculates  index  of  refraction. 

RMBINT  Romberg  improvement  of  trapezoidal  rule  integration. 

RSURF     Calculates  radial  coordinate,  R,  of  the  turret  surface,  given 
X  and  9. 

SLOPE     Calculates  the  slope  of  the  turret  surface  in  the  streamwise 
direction. 
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LASER  TURRET  ANALYSIS  FORTRAN  ROUTINES  -  CONCLD. 


FORTRAN 
ROUTINE 


PURPOSE 


SRFINT    Calculates  the  distance  along  a  ray  from  the  mirror  to  the  turret 
surface. 

SURPRT    Prints  the  coordinates  defined  by  the  geometric  shape  functions, 
f(X)  and  f(9). 

TINPUT    Reads  laser  turret  analysis  input. 

TRAP2N    Numerical  integration  using  trapezoidal  rule. 

XRTPOB    Calculates  the  polar  coordinates,  X,  R  and  9  of  a  given  point  on 
a  ray. 

ZERN      Calculates  the  definite  integral  of  the  Zernicke  coefficients. 

ZINT      Calculates  the  indefinite  integral  of  the  Zernicke  coefficients. 
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FORTRAN  VARIABLES  COMMONLY  USED  IN  LASER  TURRET  ANALYSIS  PROGRAM 

TURRET 

ABAR(I)  1-1  coefficient  of  polynomial  in  x-direction. 

ACL  Half  spacing  of  periodic  turret  for  Fourier  series  approximatioi 

AL  Turret  half  length. 

AMX(I,m)  Fourier  a-sub-m  coefficient  on  1-1  power  of  x. 

ANT (I, J)  Fourier  a-sub-n  coefficient  (J=n+1)  on  1-1  power  of  x. 

BMX(I,ia)  Fourier  b-sub-n  coefficient  on  1-1  power  of  x. 

BBAR(I)  1-1  coefficient  of  polynomial  in  9-direction. 

EPS  Turret  height  relative  to  fuselage  radius  at  x  -   9  =  0. 

MMAX  Maximum  number  of  m- terms  in  Fourier  expansion. 

NMAX  Maximum  number  of  n- terms  in  Fourier  expansion. 

NTHBC       Number  of  f  and  f '  pairs  of  boundary  conditions  imposed 
on  geometry  in  9-direction. 

NXSC        Number  of  f  and  V    pairs  of  boundary  conditions  imposed 
on  geometry  in  x-direction. 

R  Radial  coordinate  measured  from  centerline  of  fuselage, 

RFUS  Fuselage  radius  (meters) . 

SLOPEX(I)  Turret  slope  at  various  x-locations  for  9=0. 

THETA  Angular  coordinate  measured  from  the  vertical  axis. 

THMAX  Turret  half  angle. 

X  Coordinate  along  fuselage  centerline. 

YYPXBC(I,J)  f  and  f f  boundary  conditions  in  x-direction.  J  =  1  is 
x  location,  J  =  2  is  f  boundary  condition  and  J  =  3  is 
f  boundary  condition. 

YYPT3C(I,J)  f  and  f '  boundary  conditions  in  9-direction. 
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MIRROR 

GAMMA  Elevation  angle  measured  from  horizontal  plane. 

GAMMAI(I)  Angle  GAMMA  for  I-th  beam  orientation. 

PHI  Azimuth  angle  measured  from  negative  x-axis. 

PHII(I)  Angle  PHI  for  I-th  beam  orientation. 

BEAM 

A  Intercept  of  a  ray  with  the  turret  surface. 

B  Upper  limit  for  phase  distortion  calculations  along  a  ray. 

ETA  Angular  point  from  local  z-axis  to  a  point  on  the  beam. 

ETAI(I)  ETA  for  I-th  beam  element. 

NBEAM  Total  number  of  beam  orientations  considered. 

NETAI  Number  of  values  of  ETA  used  in  phase  distortion  calculations 

NRBI  Number  of  values  of  RB  used  in  phase  distortion  calculations. 

RB  Radial  distance  from  beam  centerline. 

RBI (I)  RB  for  I-th  beam  element. 

WGHTI(I)  Weighting  factor  for  importance  of  the  I-th  beam  orientation. 

Y  Y-coordinate  of  a  point  on  the  beam. 

Z  Z-coordinate  of  a  point  on  the  beam. 
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AERO  -  OPTICS 

AKPRIM  k1  in  phase  distortion  relationship. 

AMACH  Mach  number. 

AMACHI(I)  Mach  number  for  I-th  beam  orientation. 

BETA  ABS(1  -  AMACH**2) 

CP  Pressure  coefficient. 

DENGAM  Exponent  in  pressure-density  relationship, 

DENTRO  Ratio  of  external  air  density  to  sea  level  air  density. 

PDISTI(I)  Phase  distortion  if  I-th  ray. 

PHIPP  Potential  function. 

RINDEX  Index  of  refraction. 

SUMPD2  Sum  of  squares  of  phase  distortion. 

T(I)  Trapezoidal  rule  or  Romberg  integration  for  phase  distortion. 

TDENRT  Ratio  of  internal  turret  air  density  to  sea  level  air  density. 

U  Axial  perturbation  velocity. 

V  Radial  perturbation  velocity. 

WAVEL  Wavelength  of  laser  beam. 
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ARRAYS  USED  IN  LASER  TURRET  ANALYSIS  PROGRAM  AND  THEIR  REOUIRED  DIMENSIONS 


ARRAY  AND  REQUIRED  DIMENSION (S)     ACTUAL  DIMENSION(S)  IN  PROGRAM 


ABAR(MAXK+1) 

AMACHI(NBEAM) 

AMX(MAXK+1,MMAX) 

AN(MAXX-KL) 

ANT (MAXP+1 , NMAX+1 ) 

BBAR (MAXP+1) 

BMX(MAXK+1,MMAX) 

BN(MAXK+1) 

ETAI(NETAI) 

GAMMAI (NBEAM) 

PDISTI (NRBI*NETAI) 

PHI I (NBEAM) 

RBI(NRBI) 

SLOPEX(30) 

T(KTRAP+1) 

TITLE (20) 

WGHTI (NBEAM) 

YYPTBC (NTHBC , 3) 

YYPXBC(NXBC,3) 


ABAR(20) 

AMACHI(30) 

AMX(10,15) 

AN(10)' 

ANT(10,15) 

BBAR(20) 

BMX(10,15) 

BN(10) 

ETAI(16) 

GAMMAI (30) 

PDISTI (200) 

PHII(30) 

RBI  (10) 

SLOPEX(30) 

T(10) 

TITLE(20) 

WGHTI (30) 

YYPTBC (10, 3) 

YYPXBC(10,3) 
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APPENDIX  B 


PROGRAM  LISTING 
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copes  -  *  control  program  for  engineering  synthesis 


SEPT,  77 


******** 


C 
10 

c 


20 
C 


*•** 

COMM 
1FDCH 
2ITER 

COHM 
COMM 
COMM 

12VY, 
*1»IS 

COMM 

BY  G 
NAS« 
NCAL 


**«  • 
ON  / 

M,C* 
,INF 
ON  / 
ON  / 
ON  / 
N?VA 

CR2 
ON  / 

.  N, 
-AME 
C  OP 

0.  R 

1.  S 

2.  0 


CnPESl/  ATlTLE(20) 
CopfS?/  RA(5000) , IA(1000) 


COPFS2/    RA(SOOO) , I  A  f 1 000) 

CnPEM/    SGNOPT,NCALC,IOHJ,NSV,NS0BJ,NC0NA#N2VX,M2VX,N2VY,M 

R.IPSENS,IP2VAR,  IP0HG,NACMX1,KJ0VT0T,L0CR(25)  ,  LOC  I  (25) ,  I  SCR 


3. 

4. 


G|  OBCM/  ARRAYC1500) 

VANDERPL4ATS 
S  RESEARCH  CENTER,  MOFFETT 
TtonS: 

EaO  ALL  INPUT  AND  STOP, 

INGLE  PASS  ANALYSIS, 

PilMlZATION. 

EnSITIVII*  -  Z  =  F(X). 

Wn  VARIABLE  FUNCTION  SPACE 


OCT.,  197a, 
FIELD,  CALIF. 


Z  =  F(X,Y). 


*****«***, 


INPUT 


********* 


DIMENSION^  OF  ARRAYS  ARRAY,  RA  AND  IA, 

NAR»AY=lSoO 

NDRAsSOOO 

NOIAslOOO 

READ  GENERAL  SYNTHESIS  CONTROL  INPUT, 

CONTINUE 

scratch  tape  numbers, 

ISCRl=20 

ISCR2s40 

CALL  COPEoi  (RA, IA,NORA,NDIA) 

IF  (NCALC'.LT.O)  GO  TO  HO 

CHECK  TO  INSURE  STORAGE  REQUIREMENTS  00  NOT  EXCEED 

DIMENSIONFf>  STZES  OF  ARRAYS  RA  ANo  IA, 

N0RA1=L0Cr(25) 

N0IAi=L0Ct(?5) 

IF  (NORAI^le.NDRA.ANO.NOIAI .LE.NOIA)  GO  TO  20 

WRITE  (6,^50)  N0RA,NURA1,N0IA,NDIA1 

GO  TO  iao 

CONTINUE 

HEAD  USER  INPUT, 

ICALC=  1 

CALL  ANALT7f ICALC) 

IF  (NCALC'.LF.O)  GO  TO  10 


*•*****•*, 


EXECUTION 


********** 


IF(NCALC,ne.2)  GO  TO  50 


10 

20 

30 
40 
50 
60 
70 

ao 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
3'tO 
350 
360 
370 
380 
390 
400 
410 
420 
430 
4«0 
450 
460 
470 
4C0 
«90 
500 
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COPEs  -  A  CONTROL  PROGRAM  FOR  ENGINEERING  SYNTHESIS 


SEPT.  77 


30 
ao 
50 

C 
C 
C 


60 
70 


C 
C 

c 

80 


C 
C 

c 

90 


IF  ABS(<(m.GT,0  OVER-RIDE  USER  INPUT  OF  DECISION  VARIABLES  FOR 
BPTIHIZATtON. 

00  «0  1=1  NOV 
XX  =  ARS(RA,n  ) 

IF  (XX.LT.t .OE-10)  GO  TO  UO 

N5=L0CR(5> 

M2=L0CI(2> 

00  30  JsI.noVTOT 

NNl=IA(M2i 

M2=*2+l 

IF  (NNl,NF#i)  GO  TO  30 

NNlsIA(J) 

ARRAY(NN11SRA(I)*RA(NS) 

N5=N5+I 

CONTINUE 

CONTINUE 

IF(NCALC.NE.3)  GO  TO  70 

TRANSFER  NOMINAL  values  of  sensitivity  variables  to  ARRAY. 

M6  =  L0CI  (6<| 

M7=L0CI (7i 

00  60  1  =  1  .NSV 

NsIA(M7) 

M7=M7+1 

NN=IA(H6) 

M6=M6*1 

ARRAY(MN)-ra(N) 

CONTINUE 

IF(NCALC.RT'.J»)  GO  TO  140 

GO  TO  (80,90f 120,130),NCALC 

ONE  ANALYSIS 

ICALC=2 

CALL  ANALTZ(ICALC) 

ICALC=3 

CALL  ANALTZf ICALC) 

GO  TO  JO 

OPTIMIZATION 

CONTINUE 

N2=L0CR(2> 

N3=L0CHf 3, 

N«sLOCR(«! 

00  tOO  I=i, NOV 

X-VECTOR. 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
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COPES  -  A  CONTROL  PRQGRAM  FOR  ENGINEERING  SYNTHESIS 


SEPT.  77 


M2sLOCI(2l 

DO  91  Jsl.noVTOT 

NsIA(M2) 

M2rM2*l 

IF(N,NE.I}  GO  TO  91 

N5eLOCR(5^+j-l 

NsIA(j) 

RA(I)sARRiY(N)/RA(N5) 

GO  TO  92 

CONTINUE 

CONTINUE 

N2=N2+l 

N3=N3*l 

N(4  =  N0+1 

INITIAL  AmaI  *SIS. 

DESIGN  VAriaHlE  VALUES. 

M2=L0CI(2> 

NSsLOCRfS, 

DO  111  I=i,NOvTOT 

N=IA(M2) 

M=IA(I) 

ARRAY(M)=p4(N)*RA(N5) 

N5sNS*l 

M2=M2+1 

analize  Initial  design, 

ICAL-C  =  2 

call  ANALizr icalc) 

OUTPUT  INTttAl  DESIGN, 

ICALC=3 

CALL  ANAL  T  Z  f ICALC) 

OPTIMIZATION. 

CALL  COPErt?  (ARRAY, RA, IA,NARRAY, NORA, NOIA) 

OUTPUT  FInal  DESIGN, 

ICALC=5 

call  analtz(Icalc) 
go  to  10 


SENSITIVITY  ANALYSIS 


CALL  COPEnu  (  ARRAY, RA,  IA,NARRAY,NnRA,NOU) 

OUTPUT  RESULTS. 

CALL    C0PEf>5     (RA,  IA,N0RA,NDIA) 

GO  TO  10 

CONTINUE 


TWO  VARIABLE  FUNCTION  SPACF 


CALL  COPEnfc  (ARRAY, RA, IA,NARWAY,NnRA,N0lA) 

output  results. 

CALL  C0PEft7  (RA,IA,NDRA,NDIA) 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
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COPES  -  A  CONTROL  PROGRAM  FOR  ENGINEERING  SYNTHESIS 


SEPT,  77 


l  ao 


c 
c 

150 


GO  TO  10 

CONTINUE 
REWIND  ISi-PM 
REWIND  TSpR? 
STOP 


FURMATS 


FORMAT  (/>5X,6UHREQUIRE0  STORAGE  FOR  ARRAY  RA  OR  IA  EXCEEDS  DtMENS 
HONED  SIZF/Sx,5HARRAY,2Xf9HDIME^SlON,?X,aHRE'JUlRED/7X,^HRA,Id,6X,I 
25/7X,2HlA,jfl,6X#l5//5x,22H*  *  PROrRAm  TERMINATED) 

END 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
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SUBROUTINp  cOPEOl  '        SEPT.  77 

SUBROUTINE  COPEOl  (RA , I  4 , NORA , NO  I  A )  10 

COMMON  /CmmNI/  IPRINT,N0V, I  TM  AX  ,  N<;ON  ,  NS  I  DE  , I CND I R , NSC AL , NFOG , FDCH ,  20 

lFDCHM,CT#rTMlN,CTL,CTLMlN,THETA#PHl,NAC>DELFUN,DABFUN,LlNOBJ,  ITRM,  30 

2ITER, Infor, tgoto, inpo,obj  «o 

COMMON  /CnPFSi/  ATITLF(20)  50 

COMMON  /CnPfS;/  SGNOPT,NCALC, I  OBJ, NSV, NSOBJ , NCONA , N£ VX , M2VX, N2V Y, M  60 

12VY,N?VAR, jpSENS, IP2VAn,iPOBG,nACmX1 ,  nD VTOT , LOCR C 25 ) , LUC i ( 25 ) , I  SCR  70 

*1,ISCR2  80 

DIMENSION  RA(NORA) , IA(NDIA),CC( 10) ,TITLE(20)  90 

DATA  ST0P?/lHS/#SToP2/lHT/»ST0P5/lHO/,STOP«/lHP/,ST0P5/<iHST0P/  100 

DATA  END1 >ihE/,END2/1HN/,ENO3/IH0/  no 

DATA  C0M/^Ht/,C0MMA/lH,/,3LANK/lH  /,ZFR0/1H0/  120 

a*****************************************************************  130 

HOUTINE  Tn  READ  CONTROL  INPUT  FOR  COPFS,  laO 

*****«***»**»#«*****«***««*****»****««»****♦*****#******«****»**•**  150 

BY  G,  N,  vANOERPLAATS                           MAR,,  1973.  160 

NASA-AMES  RpSFARCH  CtNTER,  MOFFETT  FIELD,  CALIF.  170 

— — ...  .; — ......... ... — i8o 

READ  CARD  IMAGES  AND  STORE  ON  UNIT  ISCR2.   STORE  ON  UNIT  I  SCR  1  190 

WITHOUT  COMMENT  C*ROS  200 

; 210 

REWIND  IStri  220 

REWIND  ISfR2  230 

NCAPDS=0  240 

LOCI(25)  =  f>  250 

NCOMsO  260 

FOHHAT(80ah  27° 

ICAR{)  =  0  280 

REAO(S,2) fRA(I),I=l,80)  290 

ICAPD=ICAro+1  300 

IFORmsO  310 

is  this  thf  title  card  or  a  comment  card?  320 

IF(RA(1 ) .po.COM, OR, NCOM.EQ.O)  GO  TO  27  330 

IF(RA(1 ) .rO.&NUI .AND. fRA(2) .E0.EN02. ano,RA(3) .E0.EMD3))  GO  TO  27  340 

Unformattfp  input  chec*«  ,jSe  Ra  for  temp,  storage.  350 

check  for  f0rmatte0  input,  360 

DO  25  J=l.fiO  370 

1F(RA(J) ,po. COMMA)  GO  TO  26  380 

IF(RA(J). fo.COM)  GO  TO  27  390 

CONTINUE  400 

CONTINUE  410 

IFORmsI  420 

1F(RA(1  )  .kjF.COM)  NCON=l  430 

NO  COMMA  FOUNO,   THIS  DATA  IS  ALREA0Y  FORMATTED,  440 

DO  21  Jsl.wo  "50 

RA( J+80)=pA( J)  460 

GO  TO  18  470 

CONTINUE  480 

lCARp=ICAoo*l  u<>0 

BLANK  B-VFCtOR,  500 
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SUBROUTINE  C0PE01 


SEPT.  77 


11 

C 


13 

C 


28 


29 
14 

17 
C 

C 


19 

16 
C 


DO  U 

RA(I  + 
CONVE 
12=10 
LI  =  1 
DO  12 
BLANK 
00  13 
CC(J) 
PUT  F 
K  =  0 
NFLGs 

do  la 

JJsJ 

IGNOR 

IF(RA 

Check 
IF(»A 

check 

IF(Ra 
KsK*l 
IF(K. 
KsK-l 
IF(NF 
WRJTE 
FORM* 

*  13HC 
«  U5HF 

*  2«HR 
NFLGr 
GO  TO 
CC(K) 
CONTI 
GO  TO 
CONTI 
COMME 
WHICH 
11  =  12 
IF(I1 
11  =  11 
DO  19 
1F(H 
HA(Il 
1 1  =  I  1 
GO  TO 
CONTI 
STORE 
LI=JJ 
J1  =  I2 
DO  11 


1*1.80 

flO)=RLANK 

RT    UNFORMATTED    TO    FORMATTED. 


1  =  1,  8 

WORKING    VECTOR,     CC, 

J=1.10 
=  Hl_AWK 
IELD    J     IN    CC, 


J=LT.80 

E  LEipTNa  BLANKS, 

( J) ,F0. BLANK, AND. K.LT, 1 )  GO  TO  la 

FOR  cn*MA, 
(J) ,F0. COMMA)  GO  TO  16 

FOR  COMMENT. 
(J). P0.COM)  GO  TO  17 

LE.U)  GO  TO  29 


LG.G 

(b,2 

T(/5 

ARD 

IRST 

ESUL 

1 

la 

=  PA( 

NUE 
18 
NUE 
NT  F 
EVER 
-10 
.LT. 

♦  1 

J  =  J 
.GT. 
+  80) 

♦  1 
18 

NUE 
CON 

♦  1 

♦  80 
J»l 


T.O)  GO  TO  la 

fl)fRA(L),L=t,80),I,(CC(L),L=l,10) 

y,37H*  *  INPUT  FIELD  EXCEEDS  10  CHAR AC TERS/5X , 

TNP'JT  IS/5X,80At/"5X,  17HERR0R  IS  IN  FIELD,  I5/5X, 

10  NON-BLANK  CHARACTERS  ARE  RETAINED  AS , 2X ,  1  0  A  1 /5X , 
TS  MAY  NOT  BE  VALID) 


■11 


nUND,   STORE  BEGINNING  IN  FIELD  I  OR  IN  ACTUAL  LOCATION, 
IS  GR£ATER. 


.[J)  T 1  =  JJ 

1.79 

BO)  GO  TO  18 
:RA ( J+ 1 ) 


TENTS  OF  CC  IN  8,  RIGHT  JUSTIFIED. 


.10 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 

6ao 

650 
660 
670 
680 
690 
700 
710 
720 
730 
7a0 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 

9ao 

950 
960 
970 
980 
990 
1000 
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SUBRqUTInf  COPE01 


SEPT,  77 


22 
23 

12 

C 

C 


32 

33 
3a 

18 


41 


20 
C 

c 
c 
c 
c  « 


IF(K,E 

1F(CC( 

KA(Jl) 

J1=J1- 

KsK-l 

CONTIN 

I2sl2+ 

CONTIN 

CHECK 

CARD. 

IF(LI. 

DO  32 

IF(*A< 

IF(RA( 

CONTIN 

GO  TO 

WRIT£( 

FORMAT 

*  5X,  13 
CONTIN 
IF(RA( 
NCAROS 
IF((RA 

*  Ra(4) 

WPITE( 

IF(IF0 

FORMAT 

IF(RA( 

GO  TO 

REWIND 

REWIND 


Q.O-i  r,0  TO  23 

K).FQ. BLANK]  CC(K)zZERO 

=  CC'fK) 

1 

UE 
10 
UE 


TO  SEE  IF  NORE  THAN  8  FIELDS  OF  INPUT  A«E  CONTAINED  ON  THIS 

IF  YFS,  PRINT  pRRoR  MESSAGE;. 
GT.ro)  GO  TO  16 
J=Lt,*0 

J). FO. COMMA)  GO  TO  33 
J). FO.COM)  GO  TO  18 
UE 
18 

6,3<j)  (RA(  J)  ,  J=l  ,80) 
(/5y,«jlH*  *  INPUT  DATA  CARD  CONTAINS  MORE  Than  EIGHT  FIELDS/ 

hCapd  input  is/5x, aoai/sx,2uhresults  may  not  8e  valid) 

UE 

1).  NF.COM)  WRITE(lSCRl,2)(RA(I),I  =  81,tt>0) 

=NCiRnS+i 

(1)].E0.ST0P1.and,Ra(2)  .EU.ST0P2)  ,AND,(RA(3)  .  EO.  STOP  3  ,  AND. 

.EQ.STOPin  GO  TO  20 

ISCQ2,<U)NCARDS,(RA(I),I  =  t,A0) 

WM.FO.0)  wHITE(ISCR2,ai )NCARDS, ( R A ( I ) , I rfl J , feO ) 

(I5>flOAl ) 

I) .FO.ENDl .AND, (RA(2) ,E0.END2.AND.RA(3).EQ.EN03))  GO  TO  20 
10 

ISrRl 

ISrR2 


GENERAL  SYNTHESIS  INFORMATION 


TITLE. 
•  DATA  BLOrK  A. 

READ  (ISCpi.750)  (ATITLE(I), Ixl,20) 

NCALCs-1 

lF(ATITLEj | ) .E3.ST0P5)  RETURN 

CONTROL  P»RA*FTERS. 
■  DATA  BLOr*  B. 

REAO  { ISCoi , 770)  NCALC,N0V,NSV,N2VAR, IPNPUT, IPSENS,  IP2VAR,  IPDBG 

IF  (NCALC'.LT.O)  RETURN 

IF  (IPNPUt.RT, 1 )  GO  TO  50 


WRITE  (6,S40) 
WRITE  (6,e;s0) 
WRITE  (6,S60) 


(ATITLE(I), Ixl,20) 


CARD  IMAGE  PRINT 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1  100 
1110 
1120 
1130 
1140 
1150 
1  160 
1170 
1  180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
12b0 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
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SUBROUTlNp    COPE01 


SEPT,  77 


30 

ao 
50 


C 

c 
c 
c 
c 

c  --- 


IF  (IPNP 
WRITE  (6 
WRITE  (6 
DO  30  1= 
READ( ISC 
WRITE(6, 
REWIND  I 
CONTINUE 
WRITE  (6 
WRITE  (6 
WRITE  (6 
NACMXlsO 
NOVTOT=0 
NCONAsO 
NACMX?=0 
IF  (NOV, 


Ut.gt.o)  go  to  ao 

#  a  30  > 

t  440) 
l.ICARO 

R?,ai)NCAROS,(RA(J),J=l,80) 
<*SO)NCARDS,  (RA(J),J=1,80) 

SfR2 

#570)  C A  T  I  TLE( I ) , 1  =  1 , 20) 

,  S«0)  NCALC,NDV,NSV,N2VAR# IPNPUT, IPSENS,IP2VAR,IPDBG 
» ago) 


Lf.O)  GO  TO  200 


OPTIMIZATION  INFORMATION 


60 


70 


OPTI 

-  DAT 
READ 

-  OAT 
READ 

UBFU 

-  DAT 
TOTA 
ON  0 

Read 
if  ( 

IF(N 
IF  ( 

IF  ( 
HRIT 
WRIT 
WRIT 

1UN 
N2  =  N 
N3  =  N 
Na  =  N 

-  DAT 
DESI 
IF  ( 
N5  =  N 
IF  ( 
WRIT 
WRIT 
LOCR 
GO  T 
CONT 


MIZaTton  CONTROL  VARIABLES.  -  CONMIN  DEPENDENT, 
'A  8L0CK  C. 

>  (ISCR1.770)  IPRINT, ITMAX, ICNDIR,NSCAL, ITRM,LIN0BJ,NACMXI,NFDG 
'A  BLOCK  D. 

)  (ISCPi.780)  FDCH,FDCHM,CT,CTMIN,CTL,CTLMIN,THETA,PHI,0ELFUN,0 
JN 

'A  BLOrK  E. 
*L  NO.  nF  D.  V..  OBJECTIVE  GLORAL  NUMRFR.  SIGN 


VALUE,  SCAL, 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1560 
1590 
16U0 
1610 
1620 
1630 
1640 
1650 
1660 
lb70 
1660 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
19S0 
I960 
1970 
I960 
1990 
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80 


NS 
DO 
RE 
IF 
IF 
IF 
IF 
1(J 
N? 
N3 

Na 
cn 


c  — --  o 

C  D. 
IF 
N5 
*2 
N6 
M3 
IF 
WR 
WR 
.  10 
GO 
CO 
IF 
WR 
WR 
LO 
GO 
CO 
00 
RE 
IF 
IF 
M2 
MS 
CO 
NC 
—  -  0 
NU 
RE 
IF 
IF 
IF 
IF 
N6 
M3 

Ma 


90 


100 


no 

c  - 
c 


0E»0 
80  1  =  1 

0  (ISC 
RA(N2) 
R*(N2) 
RA(N3) 
(IPNPU 
,Jsl,5 
N2tl 

N3*l 
Na*l 
TINUE 
TA  BLO 
V,  NO. 
(IPNPU 
4*N0V+ 
NQVTOT 
NIS  +  NOV 
M^+NOV 
(N6.LE 
TE  (6, 
TE  (6, 
R(25)= 
TO  300 
MNUE 
(M3.LE 
TE  (6, 
TE  (6, 
I(?5)  = 
TO  300 
TINUE 

1  10  1  = 
0  (ISC 
ABS(RA 
(  IPNPU 
M2+1 
N5*l 
TINUE 
NsO 

TA  BLO 
BER  OF 
0  (ISC 
(IPNPU 
(IPNPU 
(NCONS 
(  IPNPU 
4*NDV* 
2*NDVT 
2*NOVT 
=  M4  +  1 


.NOV 

PI, 620)  «A(N2),RA(N3),RA(I),RA(N4),(TITLE(J),J=1,5> 

'GT.-1.0E+1b.OR.RA(N3).LT,1.0Etl5)  NSlDEsl 

IE.-1.0E+15)  RA(N2)=-l.lE*15 
.GE.1.0E+15)  RA(N3)si ,1E+1S 

T.LT.2)  ''RITE  (6,650)  I,RA(N2),RA(N3),RA(I),RA(Na)  ,  (TITLE 
1 


CK 

.  G 
T.L 

9 

*1 

TOT 
TOT 
',  NO 
330 
3S0 
NS 


G. 

Ln8AL  LOCATION,  MULTIPLYING  FACTOR, 

T.2)  WRITE  (6,500) 


«A)  GO  TO  90 
) 

) 


'.  NO  I  A) 
TftO) 
350) 
M3 


GO  TO  100 


1  ,NOVTOT 

P1,4Q0)   U(M2),  IA(I),RA(N5) 

(N5)).LT.1.0E-20)  RA(N5)sl,0 

T.LT.2)  "RITE  (6,510)  I,IA(H2),U(I),RA(N5) 


r*  h. 

CONSTRAINT  SETS, 
PI, 490)  NCONS 
T.LT.2)  WHITE  (6,670) 
T.LT.2)  WRITE  (6,680)  NCONS 
'.FO.O)  GO  TU  200 
T.LT.2)  WRITE  (6,690) 
WDVT0T*9 
OT»l 
nT*NCONS 


2010 
2020 
2030 
2040 
2050 
20o0 
2070 
2080 
2090 
2100 
21  10 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
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C  — — 

C 
C 


120 
J30 
C 


iao 

150 

c 


L*l 

DATA 
NCONA 
00  17. 
NNN  =  N 
IF  (N 
GLOBA 
REAO( 
LB,  N 
REAO( 
IF(Ra 
IF(RA 
IF(HA 
IF(RA 
IF(HA 
IF(RA 
NUMBE 
NVARr 
IF  (N 
NCONA 
HOW  M 
J  1  =  0 
IF  (P 
IF(RA 
NCONI 
NCONs 
IF  (J 
AOO  L 
DO  12 
Mq  =  M« 
MMMSM 
IF  (M 
IA(MU 
CONTI 
ADO  L 
IF  (N 
NVARl 
DO  la 
NNNsn 
IF  (N 
RA(N6 
RA(N6 
RA(N6 
RA(M6 

CONTI 
CONTI 
AOO  C 
IC0N1 
DO  16 


BLOr 
=  0 

o  i  =  T 

NN.Gt 
L  NO' 

ISCR* 

ORM, 

ISCRJ 

(Nfe)# 

(N6*? 

(N6+, 

(N6+? 

(N6*T 

(N6*x 

R  OF 

JCONt 

VAR 

=  NCOn 

ANY  'r 

A(N65 
(N6  +  ? 
=  J1*N 

NC0N  + 
l.EQ'. 
INEAp 
0  J=i 

♦  1 

4 

mm.Gt 
)=LCn 
NUE 
B,  UR 
VAR.p 
sNVAp 
0  J=1 

NN.Gf 

♦  4)=p 

♦  5)=p 

♦  &  )  =P 
■f  7)=R 

♦  4 

NUE 
NUE 
ONSTp 
eICON 
0  J=i 


K  I. 

,NCONS 


.NO 

1 

.77 
UB, 
,7 

IF 


RA)  GO  TO  180 

GLOBAL  NO,  2,  LINEAR  CONSTRAINT 
0)  ICONI, JCONI ,LCONI 

NORM, 


ID. 


.GE.-l .0E+15)  J  1  =  1 
).LT.l.0E*15)  J1=JU1 

vaR 

NC^Nl 

0)  GO  TO  130 

CONSTRAINT  IDENTIFIERS  TO  TSC, 
.NCONI 


.NOIA)  GO  TO  190 
NI 

ANO  SCAL  TO  BLU  IF  NVAR.GT.l, 
Q,\)     GO  TO  150 

-1 

,NVARt 

.NORA)  GO  TO  180 

A(N6) 

AfN6*l  ) 

A(N6+2) 

A(N6*3) 


aTned  variable  global  identifiers  to  icon, 
i 

.NVAR 


2510 
2520 
2530 
2540 
2550 
2560 
2570 
2560 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2660 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
29a0 
2950 
2960 
2970 
2980 
2990 
3000 
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MMMSM3 

IF  (MMM.Gt.nOIA)  GO  TO  190 
lA(M3)sICnN1 
IC0N1=IC0W1+1 
IF(J.EQ.I)  GO  TO  160 
C      SHIFT  ISC  VECTOR. 
Ll=Hu*l 
L2  =  Mu 
DO  165  K=mu4#M« 

lA(Li)  =  IA'a2) 

Ll=Ll-l 
165  L2=t2-1 

MqsMa+1 

MaASMUA+1 
160    M3=M3*i 

IF  (IPNPUt.Lt.2)  *RITE  (6,660)  L , ICON  I , JCON I , LCON I , R A ( N& ) , R A ( N6t 1 ) 
1,Ra(N6+2)  ,ra(N6*3) 

N6sN6*a 

l=NCON+l 
170    CONTINUE 

IF  (IPNPUt.lT.2)  WRITE  (6,470)  NCONA 

GO  TO  200 
180    WRITE  (6,330) 

WRITE  (6,370) 

L0CR(?5)=nnn 

GO  TO  300 
1<?0    WRITE  (6,360) 

WRITE  (6,370) 

LOCI (25)=mmm 

GO  TO  300 


200 

CONTINUE 

NS08J=0 

NSVTOTsO 

C 

STARTING 

c 
c 
c 

c  --• 

c 

c  — 
c 


tcations  for  Sensitivity  information, 

NSVRs««N0y  +  NL)VT0T  +  M*NC0NA*9 
NSVl=2*(Nnv+Nc0NA)+2*N0VT0r+NCUNA*l 
IF  (NSV.Lf.O)  GO  t0  <*40 

SFNSlTIVITY  INFORMATION 

IF  (IPNPUt.lT.2)  "RITE  (o,590) 
-  DATA  BlOfK  J,  PART  1. 

NSOBJ, 

READ  (ISCpi,770)  NSOBJ 
•  DATA  BLOfK  J,  PART  2, 

NSENSZ. 

MSsNSVl 

MM5=M5+NSnRj-l 

IF  (MM5.Lf.n0IA)  GO  TO  210 

WRITE  (6,360) 


3010 
3020 
3030 
3040 
3050 
30t>0 
3070 
3060 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3160 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3260 
3290 
3300 
3310 
3320 
3330 
33«0 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
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210 


220 

C  .- 
C 


225 


230 
2«0 


C 
C 
C 

C  -« 
C 


WRITE 
LOCK 
CO  TO 
CONTI 
READ 
IF  (I 
IF  (I 
IF  (I 
N7  =  NS 
M6  =  NS 
M7  =  M6 
00  23 

■  DATA 
ISENS 
KFAO( 
NN7  =  N 
IF  (N 
WRITE 
WRITE 
LOCR( 
GO  TO 
CONTI 

•  DATA 
SENS. 
READ 
IF(IP 
JJ  =  N7 
IF(JJ 
WRITE 
JJsJJ 
IF(JJ 
CONTI 
NSVTO 
U(M7 
N7  =  NN 
M6  =  Mfe 
M7eH7 
CONTI 
CONTI 
M2VX  = 
M?VY  = 
IF  (M 


(6, 

25)  = 

300 

NUE 
(ISC 
PNPU 
PNPU 
PNPU 
VR 

Vl  +  N 
♦  NSV 
0  1  = 

BLO 
,  NS 
ISCR 
7  +  NN 
N7.L 

(6, 

(6, 
25)  = 

300 
NUE 

BLO 


*80) 

MM5 


R1.770)  (IA(I),I=H5,MH5) 

T.LT.2)  WRITE  (6,530)  NSOBJ 

T.LT.2)  WRITE  (6,520)  ( I  A ( I ) , I =M5 , MM5 ) 

T.LT.2)  WRITE  (6,600) 

SOBJ 

j,nSV 

CK  K,  PART  1. 

fnS. 

T,770) IA(M6),NNl 

i-1 

F.MDRA)  GO  TO  220 

T30) 
^90) 
NN7 


i-K  *,  PART  2. 


(ISCpt,780)  (RA(J),J=N7,NN7) 

NPUT'.GE.2)  GO  TO  225 

+  5 

.GT.NN7)  JJ=NN7 

(6,6iO)I,IA(*6),(RA(J),J=N7,JJ) 

♦  1 

.LE.N7)  WRITE(6,615) ( R A ( J ) , J  =  JJ, N7 ) 

NUE 

T=NSvTOT+NNl 

)=N7 

7  +  1 

+  1 

♦  1 
NUE 
NUE 
0 

0 

2VAR'>le,0)  GO  TO  27o 


TWo-VARIAdI.E  FUNCTION  SPACE  INFORMATION 


•  DATA  BlOfK  L. 

variable  mumhfRS  and  number  of  values  of  x   ano  y, 

READ  (ISCri,770)  N2VX , M2vX , N2V Y, M2V Y 

Nfl=NSVR+NSVTOT 

M8  =  NSVUN«;0RJ  +  2*NSV 


3510 
3520 
3530 
3540 
3550 
3560 
3570 
3560 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
36o0 
3670 
3660 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
38e0 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
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250 
C  - 


MM8  =  M8-fN2vAC-l 

IF  (MM8.Lp.NDTA)  GO  TO  250 

WRITE  (6,n60) 

WRITE  (6,a00) 

LOCI (25)=mmA 

GO  TO  300 

CONTINUE 
DATA  BLO^k  m. 
C      GLOBAL  VaoiaHLE  NUMBERS 

READ  (ISCpi,770)  (IA(I) 

IF  (IPNPUt.lT.2)  *RITE 

IF  (IPNPUt.lT.2)  "RITE 
C  ----  (UTa  BLOck  N. 
C      VALUES  OF  x  COMPONENTS. 

NN8  =  N**M,2v/x-l 

IF  (NN8,Gt.nORa) 

READ  (ISCpi,780) 

IF  (IPNPUt,LT.2) 

IF  (IPNPUT.LT.2) 
C  ----  DATA  BLOfK  °. 
C       VALUES  OF  y  COMPONENTS, 

NQ=N8+M2VY 

NN9=N9+M2vy-1 

NN8=NN9 

READ  (ISCri,780) 

IF  (IPNPUt.lT.2) 

IF  (IPNPUt.L',2) 

GO  TO  270 
260    WRITE  (6,330) 

WRITE  (6,a0O) 

L0CR(?5)=nnR 

GO  TO  300 
270    CONTINUE 


CORRESPONDING  TO  FUNCTIONS  OF  X  AND  Y, 
, I=m8, mm8) 
(6,730) 
(6,740)  (IA( I ) , I=M8,MM8) 


GO  TO  2b0 
(RA(I),  I=N8,NN8) 
"RITE  (6,700)  N2VX 
(6,720) 


WRITE 


(RA(  I  )  , I=N8,NN8) 


(RA(I),  I=N9,NN9) 
WRITE  (6,7J0)  N£VY 
(6,720) 


WRITE 


(«A(I),  I=N9, NN9) 


DYNAMIC  STORAGE  ALLOCATION 


NOV2sNnVt? 

REAL  VARIABLtS. 

X. 

LOCR(l)3i 

VLB 

LOCR(2)=Nnv+3 

VUB. 

LOCR(3)sLncP(2)^OV2 

SCAL. 

LOCR(«)=LncR(3)>NDV2 

AMULT. 

L0CR(5)=LncR(4)*NDv2 

BLU. 

L0CR(6)=LDCR(5)*N0VT0T 


aoio 

4020 
4030 

aoao 

4050 

aooo 
ao70 

4080 

a09o 

4100 

alio 

4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
44<J0 
4450 
4460 
4470 
4480 
4490 
4500 
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C 
C 
C 
C 

260 

C 

C 

C 

C 

C 

c 
c 
c 
c 
c 


290 
C 


295 


300 


SENS. 

LOCR( 

XM2V. 

LOCR( 

YM2V, 

LOCR( 

EXECU 

LOCW( 

DO  28 

LOC( 

INTEG 

IDSGN 

LOCI( 

NDSGN 

LOCI( 

ICON. 

L0CI( 

ISC. 

LOCIf 

NSENS 

L0CI( 

ISENS 

L0CI( 

NSENS 

LOCI( 

N2VZ. 

LOCI  ( 

EXECU 

LOCI( 

DO  29 

L0CI( 

ST0«A 

IF(NC 

NRI=N 

IF  (N 

NR  =  3. 

NI  =Ni 

L0CR( 
L0CI( 
GO  TO 
NR  =  NS 
IF(NS 
IF(NC 
IF(NC 
CONTI 
IF  (  IP 
*) ,NDI 
RETUR 


7)=LnCR(6)*4*NC0NA 
8)=LnCR(7)+NSVT0T 

9)=LncR(R)*M2vx 
TION  LEVEL  ARRAYS. 
lO)ai*0cR(9)+M2VY 

0  1=11,25 
I)=LncRdO) 
ER  V4rtabLES. 

!)si 

2)sNnvTOT+l 

3)=lnCT(2)*NDVTOT 

«)*LnCI(3)*NCONA 

Z 

5)=i.ncT(a)+2*(NOVtNcONA) 

6)sLncK5)*NS0HJ 

7)=LnCI(6)+NSV 

9)=LnCI(7)*NSV 

TION  LFVEL  ARRAYS, 

9)=lnCI («)+N2VAk 

0  I=?0,25 

I)=LnCT  C) 

GE  FnR  Conmin  arrays, 

ALC.mE.2)  GO  TO  295 

OV 

ACMXy .GT.NRI)     NHIsNaCMXI 

NCON  +  a*NOV  +  NACMXU(NDV2*NACMXl)+NRIt<4 

cmxi;?.nri 

2S)=|  OCR(10)+NR 
25)sj  nd(9)*Nl 

300 
V 

08J.r,T.NR)  NRsNSOBJ 
ALC.F0.3)  LOCR(25)=LOCR(10)+NR 
ALC.fo.4)  L0CR(25)=LOCR(10)+N2VAR 
NUE 

NPUT'-LT.2)  wHITE(6,al0)LOC«(l0),LOCR(25),NDRA,L0CI(9),LOCI(25 
A 
N 

FORMATS 


4510 
4520 
4530 

4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4V70 
4980 
U990 
5000 
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c -..;..-. — . . . -..  5010 

510    FORMAT  (/s;x,58HCONmin  PARAMETERS  (IF  ZERO,  CONmIN  DEFAULT  WILL  OvE  5020 

lH-RlDE)//c;x,bHlPHlNT,2X#5HlTHAX,3X/6HlCN0lRf  iX,5HWSCA(.,3X,4MITRM,3  50  30 

2X,6HLlN08.i,2X,6HNACMXl,3x#4MNFDG/«l8)  50  UO 

320    FORHaT  (/*,x,aHFOCH,  i2x,5HFOCHH,  hx,2hcT,  i«x,5HcTMiN/iX,a(2X,El«.5)  5050 

*//6X,3hCT|',  i3x,6hCTLMIN#  10x,5hThEtA,11x,3hPhI/'1X,4(2X,E14,S)//  50O0 

*  6X#6HDELFU*J#  l0X,bHr>AHFUN/lX,2(2x,tl«.5)  )  5070 
330    FORHaT  (/>5X,5«HWEGUIRED  STORAGE  IN  ARRAY  Ra  EXCEEDS  AVAILABLE  STO  5080 

1RAGE)  5090 

340    FORMAT  (/5X,27HUNABLE  TO  READ  DaTa  BLOCK  F)  5100 

350    FORMAT  (/e;x,27Ht)NAyiE  TO  REAO  OATa  BLOCK  G)  5110 

360    FORMAT  (/;5X,54HHEQUIRE0  STORAGE  IN  ARRAY  Ia  EXCEEDS  AVAILABLE  STO  5120 

IMAGE)  5130 

370    FORMAT  (/«;X,27HUNAHLE  TO  READ  DATA  BLOCK  I)  5140 

380    FORMAT  (/c;x,27HUNAt3LE  TO  READ  DATA  BLOCK  J)  5150 

3^0    FORMAT  (/e;X,27HUNAbLE  TO  REAO  DATA  BLOCK  K)  51b0 

400    FORMAT  (/c;x,27HUNABLE  TO  REAO  DATA  BLOCK  L)  5170 

410    F0RMAT(//qx,25H0ATA  STORAGE  «E 00  I  RE ME N TS // 1 7 X , a HR£ AL , 20 X ,  5180 

*  7HlNTEGEP/7X,27HlNPUT   EXECUTION   A y a  I L ABLE t 5x,  5190 
«  27HINPUT   FXECUTTON   A  V  a  I L ABLE / 1 X , 3 1  1 0 , 2 X , 3  I  1 0 )  5200 

420    FORMAT  (A^,a2, Al , 19A4)  5210 

430    FORMAT  (lHl,4X,27HCAH0  IMAGES  OF  CONTROL  D A T A///5X , 4MC ARD , 20 X , 5H I M  5220 

UgE)  5230 

440   "  FORMAT  (  IhO)  5240 

450    F0RMAT(I8# jH) ,2X,80A1)  5250 

470    FORMAT  (/=;x,«OHTOTaL  NUMRER  OF  CONSTRAINED  PARAMETERS  =  ,15)  52b0 

480    FORMAT  ( />sx , 26HC ALCUL A T I  ON  CONTROL*  NC ALC /5 X , 5H V ALUE , 3 X , 7HM£ AN  I NG  5270 

!/7x#lHl/5x,l5HSTNr,LE  analYSIS/7x,ih2,5x,12hoPTImizaTIOn/7X,1h3,5x,  5280 

2  1  1HSENSITTVITY/7X,  jHa,5X,27HTwO-VARUBLE  FUNCTION  SPACE)  5290 
490  FORMAT(2Iio,Fl0.2)  5300 
500    FORMAT  (//^XMbHOESIGN  V  AR  I  ABLE  S/  j  \  X  ,  5HO  .  V  ,  ,  5X  ,  6HGL0BAL  /  4  X,  1 1  HMUL  5310 

1TIPLYING/sx.2hID#5x,3hNO,,5x,8hVaR,  NO. # 5X, 6HF aC TOR)  5320 

510    FORMAT  (2t7,5X, I5,6X,E12,5)  5330 

520    FORMAT  (5y,joI5)  5340 

530    FORMAT  (/s*,34HNU"UER  OF  SENSITIVITY  OBJECTIVES  = , I 5/5X , 53HGLOBAL  5350 

lNUMBEPS  ASSOCIATED  WITH  SENSITIVITY  ORJECTIVES)  5360 

540    FORMAT  (iwt ,//////, 5X,y7HCCCCCCC    00OOOOO    ppppppp         EEEEEEE    S  5370 

lSSSSSS/SX.u7HC          0      0    P      P    E          S       /5X#47  5380 

2HC          0      0    P      P    E          S       /5X.47HC          0  5390 

3  0    pppPPPP    EEEE       SSSSSSS/5X,47HC          0      OP  5400 

4  E                S/5x,a7HC          OOP          E  5410 

5  S/5X.47HCCCCCCC    0000000    P          EEEEEEE    SSSSSSS  5420 
'  6)  5430 

550    FORMAT  (/////, 19X, 19HN  ASA   -   A  H  E  S//loX,29HC  0  N  T  R  0  L    P  5440 

1  R    0    G    R    a     M//26X,5HF    0    R//8X,4lHE    NGlNEERlNG          SYNTH  5450 

2  E  S  1  S)  54bO 
560  FORMAT  (/////24X,9HT  I  T  L  F//5X,20A4)  5470 
570  FORMAT  ( lMt ,4X,6HTITLF:/5X,20Aa)  5480 
580    FORMAT  (/>/sX, 10HCONTROL  P AR AM£ T£RS I /5X , U2HC ALCUL A T I  ON  CONTROL*  5490 

1               NCALC  s, I5/5x,42hNUM8eR  OF  GLOBAL  DESIGN  VARIABLES/  5500 


.. 
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590 
600 

610 
615 
620 
630 

6«0 


650 
660 
670 
680 
690 


700 

710 

720 
730 

7«0 
750 
770 
780 


2NOV  a, I 
3HNUHBEW 
«TlON  PR 

5   • 
6=,I5/5X 

FORM*T 
FORMAT 
1  VALUE, 6 
FORMAT 
FORMATC 
FORMAT 
FORMaT( 

1  «6hmUL 
FORMAT 

lVALUt  W 

2R,oX,7H 

3CALE) 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

*  13HNOR 

*  6HVAR. 

*  5HBOUN 
FORMAT 

H5//5X, 
FORMAT 

IJ.5//5X, 
FORMAT 
FORMAT 

10N//5X, 

Format 

FORMAT 

FORMAT( 

FORMAT 

End 


5/^X, 
Of  f 
INT  C 
IP^FN 
»«?HO 
(///5 
(/Tax 

X,  1  «H 

(5y,T 
35x,5 

(«fjO 
/5y,3 

TIPLT 
(/SX, 
ILi  0 
inttt 

(In, a 
(Is, I 
(/>sx 
(/*x, 
(l?x, 

MA,  l7 
1.2X 
D,  ox, 
(//SX 
20HvA 

(//sx 

20hvA 
(3x,S 
(///S 
52HGL 
(5y,1 
(2n  Aa 
8I?0) 
(«F10 


apHNUMBER  OF  SENSITIVITY  VARIABLES,      NSV  =,I5/5X,42 

UNCTIONS  IN  THO-SPACE,   N2VAR  = , I 5/5X , a2H I NPUT  INFORMA 

OoEr       IPNPUT  =,  I5/SX,«2HSENSITIVITY  PRINT  CODE, 

S  =, l5/5X,a2HTwo-SPACF  PRINT  CODE/  IP2VAR 

E8UG  PRINT  CODE,  IPOBG  =,15) 

X,27h*  *  SENSITIVITY  INFORMATION) 

,6HGL0tiAL,4Xf  7HN0MINAL/5X,6H NUMBER, 2X,8HVARIABLE,UX,5H 

UFF-nOMINAL  VALUES) 

a,  I8,5X,Ll2.5,  1X,5E11.4) 

El  i, a) 

.2, 1 OAa) 

5HGLORAL  VARIABLE  NUmr£R  OF  OB JFCT I V£ , 1  OX, 1 H= , I5/5X , 

ER  (fjEGATiVE  INDICATES  »  I  N  I  M  I  Z  A  T  ION  )  =,£12.4) 

27HOESIGN  VARIA8LE  I  NFORM AT  I  0N/5X , 50HNON-ZERU  INITIAL 

VeR-RIOE  MODULE  INPUT/5X,5HD.  V  .  , 5x , 5hLOw£R , 1  OX , 5HUPPE 

AL/5X,3HNO.,7X,5hBOUNO,10X,5HROUND,10X,5HVALUE,10X,5HS 


X,E12.5,3X,Ei2.5,3X,Ei2,5,3X,E12.5,5A4) 

7,2I8,5X,E12.5,3X,E12.5,3X,E12.5,3X,E12.5) 

, 22HC0NSTRAINT  INFORMATION) 

<?HTH£R£  ARE,I3,i6H  CONSTRAINT  SETS) 

oHGL0BAL,2X,oH0L0BAL,2X,6HLlNEAR,6X,5HL0WER,6X, 

*TIUN»7X,5hUpPER,6X,13HNORMAliZATION/6X,2hID,3X, 

,6HVAR.  2,aXf2HID,8X,5HBOUNO,<9X,6HFACTOR,10X, 

6HFACTOR) 

NUMBER  CORRESPONDING  TO  X, 


NUMBER  CORRESPONDING  TO  Y, 


N2VX  =, 
N2VY  =, 


,<j9hglobal  variable 

LUES  OF  X-VARiABLE) 

,49hgloral  variable 

LUES  OF  Y-VAriABlE) 

El2.4) 

x,51h*  *  two-variable  function  space  mapping  informati 

oral  variable  numbers  associated  with  F(x,y),  m2vz) 

015) 

) 

.2) 


5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5ol0 
5620 
5(330 
5640 
5650 
5660 
5670 
S680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
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c 
c 
c 

c 
c 

50 


SUBROUTI 

COMMON  / 

1F0CHM,CT 

2ITE*,  INF 

COMMON  / 

COMMON  / 

12VY,N2VA 

*1»  ISC«2 

OIMENSIO 

******** 

HOUTlNE 

******** 

BY  G,  N, 

NaSA.AME 


ARRAY  DIMENSIONS 


NN1=N0V*2 

NN2=2*N0V+NC°N 
NN3=NACMXt 

NN4=NN3 

IF     (NOV,Gf.NN«)     NNUsNOV 

NN5=2*NN« 


ARRAY    STARTING    LOCATIONS 


*,     VLB,     V|iR,     OF,     A,     S,     Gl,     G2,     C,     B,     SCAL,     ISC,     IC,     *Sl 

NXsl 

NVLB: 

NVUBsl 

NNSCAl 

N0FSL1 

NG  =  NOI 

NArNG' 

NSsNAh 

NG1 sNStNNf 

NG2=N( 

ncsng; 

NB=NC' 
NISC  =  1 

NIC=L( 
NMS1 


:LOCR'f?) 
:L0CRf3) 
iL=LOCR(a) 
.OCR(io) 

)F+NN^ 

I  +  NN2 

i  +  NNI  tUNi 


JG1*NM2 
I2*NN? 
>NN4 
:LOCIf«) 

.oci(To) 

:NIC+NN3 


OPTIMIZATION 


IGOTO30 

CALL  CONMTN  (X,DF,G, ISC,  IC, A,S,G1,G2,C,MS1,B, VLB, VUB, 
*SCAL,Nl,N?,M3,Na,N5) 

CONTINUE 

CALL  CONMTN  (RA(NX)f RA(NQF),RA(NG), IA(NISC),IA(NIC),«A(NA),RA(NS), 


10 

20 
30 
40 
50 
oO 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
2fe0 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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lRA(NGl  ),Ri(NG2)  ,RA(UC)  ,  UCNMSl  )  ,  Ra  (N8)  ,  RA  (NVLB)  ,  RA  (NVUB)  ,  RA  (NNSCAl  510 

2},NN1  ,NN2,>gi«j3,NN<4,NN5)  520 

ANaLIZE.  530 

CALL  COPEo3  (ARRAY, NARKAY, RA(NX) ,RA(NDF),RA(NG) , IA(NIC) ,RA(NA),NN1  540 

1#NN2,NN3»ra, iAr NORA»NOIA)  550 

IP(IGOTO,rt.O)  GO  TO  50  560 

RETURN  570 

END  5ao 
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SUBROUTINE  COPE03 
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20 
C 

C 

c 


c 
c 
c 

25 


SUB* 

lrNQl 

COMM 

1'FOCH 

2ITE« 

COMM 

12VY, 

*  1 .  I  S 

DIME 

DIME 

*  *  *  * 
BUFF 

*  *  *  * 
BY  G 
NASA 
INIT 
OBJE 
IF(I 


OUTIN 

A) 

ON  /C 

M,CT, 

,INFO 

ON  /C 

N2VAR 

C»2 

NSION 
NSION 
»  *  *  *  * 
E»  8E 
*  *  *  «  * 
.  N. 
-AMES 
I*L  A 
CTIVE 
TER.L 


P  COPE03  (ARRAY, NARKAY, X, DF, G, IC, A, NN 1 , NN2 , NN3 , R A , I  A , NORA 

MMNW  I  PR  I  NT,  NOV,  ITMAX,NC0N,NSIDE,  I CNQl R , NSC AL , NFQG , FDCH , 

rTMlN,CTL,CTLMlN,THETA#PHl»NAC»0ELFUN,DABFUN,LlN08J/ITRM, 

r:,  IGOTO,  INFU,0BJ 

nPFSv    SGN0PT,NCALC,I08J,NSV,NS0RJ,NC0NA,N2VX,M2VX,N2VY,M 

,ipSEnS/IP2va«,ipORG,nACmX1,nDVTOT,LUCW(25),lOCi(25),ISCR 


Transfer  design  variable  values  to  user  array 


N5=L0CR(5i 

M2=L0CI(2) 

00  20  Isl.noVTOT 

N=IA(M2) 

H=IA(I) 

ARRAY(M)=Pik(N)*RA(N5) 

N5SN5+1 

«2=H2>1 

M9sMQ+l 

CONTINUE 


ANALIZE 


ICALC=2 

call  analtzc icalo 


OBJECTIVE 


CONTINUE 

08Js-SGN0oT»ARPAY(I0BJ) 
IF  (NCON.pQ.O)  RETURN 


CONSTRAINT  VALUES 


M32L0CIC3T 

N6=L0CR(6i 

N  =  0 

00    40    IxI.hjcON* 

parameter  identifier. 


10 

20 

30 

ao 

50 

s»0 

70 

80 

90 

100 

1  10 

120 

130 

140 

150 

160 

170 

ISO 

190 

200 

210 

220 

230 

240 

250 

2b0 

2/0 

260 

290 

300 

310 

320 

330 

340 

350 

3t>0 

3/0 

360 

390 

400 

a  i  o 

420 
430 
440 
4S0 
460 
470 
460 
490 
500 
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SUBROUTINE  COPE03 
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NN=IA(M3) 

CCsARRAY(mN) 

c 

LOWER  HOUNr>. 

BB=RA(N6) 

IF  (BB.LT  „l.0E  +  l5)  GO  To  30 

c 

NORMALIZATION  FACTOR, 

Cl=RA(N6+i ) 

c 

CONSTRAINT  VALUE. 

N  =  N+1 

G(N)s(B8-nC)/Cl 

c 

UPPER  BOUkjd. 

30 

B8=RA(N6+?) 

C 

NORMALIZATION  FACTOR. 

ClsRA (N6*^) 

N6=N6+« 

M3SMJ+1 

IF  (BB.Gr  i.OE+15)  GU  TO  40 

C 

CONSTRAINT  VALUE. 

NrN+1 

G(N)=(CC-flfl)/Cl 

no 

CONTINUE 

RETURN 

End 

510 
520 
530 
5U0 
550 
560 
570 
580 
590 
600 
610 
620 
630 

6ao 

650 
660 
670 
680 
690 
700 
710 
720 
730 
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subroutine  copeou 


subrouti 

COMMON  / 

1FDCHM,CT 

2ITtR,INF 

COMMON  / 

COMMON  / 

12VY#n2V* 
*1,ISCR2 

DIMEnSIO 
******** 

Routine 

A  PRESCR 
******** 
BY  G.  N, 
STORE  OU 
REWIND  I 


SEPT.  77 


♦♦♦♦•A*****************************************: 
Tn  PROVIDE  SENSITIVITY  INFORMATION  *ITh  ReSPECT  TO 
IrEO  SET  OF  DESIGN  VARIABLES. 
a********************************************************* 

VANUEWPLAATS  MAR,,  1973. 

TpuT  ON  UNIT  ISCR1, 
SrRI 

WRITE  BASIC  INFORMATION  ON  UNIT  ISCRl 


TITLE. 

WRITE  (ISj-Ri,  330J 

NCALC,  NSv.  NSOBJ 

WRITE  (ISpRl.jaO) 

iSENSd  ),t  =  1  »NSV, 

Hb=LOCI (6) 

M7=M6+NSV_i 

WRITE  (ISrRlfjaO) 

NSENSZ( I ) . 1=1 ,NS08J. 

M5=LOCI(51 

M6=M5+NS0rj-1 

WRITE  (ISfRi,3aO)  (IA(l)f ISM5.M6) 

JCALC=3 

ICALC=2 


(ATITLE(I)»  1  =  1,20) 

NCALC»NSV, NSOBJ 

C  I  A  C  I  )  ,  IsM6,M7) 


*********, 


NOMINAL 


********** 


CALL  ANALTZf ICALC) 

IE  (IPSEN<i#r,T.O)  CALL  ANaLIZ  (JCALO 


WRITE  NOMINAL  RESULTS  ON  UNIT  ISCRl 


160 


SENS(I«  1  ) 

M7=L0CI (7^ 

NlO»LOCR(?<n 

NHSNIO 

00  160  I=», NSV 

NsM7+I-l 

M«I A(N) 

RA(NJ 1 )=Ri(N) 

Nl 1=N1  1*1 


10 
20 

30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
loO 
170 
180 
190 
200 
210 
220 
230 
240 
250 
2b0 
270 
280 
290 
300 
310 
320 
330 
340 
350 
3b0 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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SUBROUTINE  cOpE0<J 


SEPT,  77 


170 


Nl  1SN10  +  N<;v-1 
WRlTE(ISCpi,3SO)(RA(I),IsNlO,NU) 

SENSITIVITY  OBJECTIVES,  08JZ. 
H5=L0CI(5) 

N10=LOCR(io) 

Nl 1=N10 

00  170  I=7,nS0BJ 

MsM5+I-l 

HsIA(M) 

RA(Ni  J  )=Ap(?4Y(M) 

Ni  1=N]  l  +  l 

Nl  l=N10+NsnfW-l 

WRlTE(ISCpi,3S0)(RA(I),I=N10,NU) 


*  *  *  ****** , 


SENSITIVITIES 


********** 


«nSv 


NUM8ER. 


VARIABLES,     NSENS, 
•NSVAU  +  1 
ISCR1, 


NSVAL=L0C»(8)-L0CR(7)' 

NSVA(.1=0 

DO    320    II-i.NSV 

Sensitivity  variable 

M6=L0CI(Oi+II-l 

ISENS=IA(Mfe) 

STARTING  i  nCATION  OF  SENSITIVITY  VALUES  IN  RA  («7). 

M7sL0CI(7i+lI.i 

Mfl=I A(H7+! ) 

M7=IA(M7) 

NUMBER  OF  SENSITIVITY 

NSENS=M8-M7 

IF  (II.EQ'.NSVj  NSENS  =  NSVAL- 

IF  (NSENS']LE.  1  )  GO  TO  320 

WRITE  ISEwS  ANO  NSENS  ON  UNIT 

NSENSI=NSFNS-t 

WRITE  (ISrRt,3<J0)  ISENS,NSENSI 

VARY  THE  VALUE  OF  THE  SENSITIVITY  PARAMETER 

00  310  JJ=2,NSENS 

NSVALl=NSvALUl 

K=M7+JJ-1 

ARRAY(ISEwS)=RMK) 

WRITE    SENsn,j)    ON    UNIT     I  SC«l  . 

WRITE  (ISrPl/350)  ARHAY(ISENS) 

ANALI2E. 

call  analjz(Icalc) 

if  (ipsens.r.t.o)  call  analiz(jcalc) 

write  sensitivity  results  on  unit  iscr1 


OBJZ. 
M5=L0CI(5, 


510 

520 
530 
540 
550 
560 
570 
560 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
760 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
9/0 
980 
990 
1000 
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SUBROUTINE  cOPEO« 


SEPT,  77 


300 


310 

320 

C 

C 

C 

330 

3«0 

350 


NtOslOCR(70) 

Nl 1 =NI 0 

00  300  I=T,mSOBJ 

MrM5*T-l 

MbIA(M) 

RA(N1 1 )=ArraY(M) 

Nl 1=N1 1*1 

Nl 1SNJ  0  +  N^o«J-l 

*RITE(ISCri,3S0)(Ka(I), IsNio,Nll) 

CONTINUE 

ARRAY( ISEnS1=»A(M7) 

CONTINUE 

RETURN 


FORMATS 


FORMAT  (2flAa) 

FORMAT  (Ul5) 

FORMAT  (5P15.8) 
END 


1010 
1020 
1030 
1040 
1050 
10bO 
1070 
1060 
10V0 
1  100 
1110 
1120 
1  130 
1  140 
1  150 
1  lbO 
1  170 
1  lttO 
1  190 
1200 
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SUBROUTINE  C0PE05 


SEPT.  77 


SUBROUT 

COMMON 

1F0CHM,C 

2ITER, IN 

COMMON 

COMMON 

12VY, N2V 

*1, ISCR2 

OIMENSI 

******* 

Routine 
******* 

BY  G,  N 
NaSA-AM 
REWIND 


INp  COPE05  (RA, IA,NDRA,NDlA) 

/CnmnW  IPRINT,NDV, ITMAX,NCON,nSIDE, ICNOIR,NSCAL,NFDG,FDCH, 

T,rTMlN,CTL,CTLMlN, THE T A , ?H I / N AC » OELF UN , D ARFUN , L I  NOB J  ,  IT KM, 

FOr.iGOTO, INFO.OHJ 

/CnPPSl/  ATITLEC20) 

/COPFS3/  SGNOPT,NCALC,  I  OB J , NS V , NS08 J , NCON A , N2VX, M£ VX , N2V Y , M 

AR#ipSEnS,IH>2VAR, IPUBG,NACMXl,N0VT0T,L0CR(2b),L0Ci(25), I  SCR 


ON  RA(NORA) , TA(NOIA) 
it************************** 


•A********************************************************* 

Tn  P«INT  SfcNSlTIVlTV  INFORMATION  STORED  ON  UNIT  ISCR1. 
**«««*«*«********•*•*********•***«*•«********************•* 
.  VANDEPPLAATS  JULY,  197a, 

FS  RESEARCH  CtNTER,  MOFFETT  FIELD,  CALIF, 
ISf-Rl 

GENERAL  INFURMATION 


TITLE. 

READ  (ISCpi,60)  (ATITLE(n,Isl,20) 

NCALC,  NSv,  NSUBJ 

READ  cISCoi,70)  NCALC, NSV,NS08J 

IF(NCALC,wf.3)  RETURN 

wRITE(6,8o) 

''RITE  (6,^0)  (ATITLE(I)  ,  1  =  1,20) 

WRITE  (6,oo)  NSV,NSOBJ 

ISENS(I),i=1 ,NSV, 

READ  (ISCpi,70)  (IA(I),  1  =  1, NSV) 

WRITE  (b,uO) 

WRITE  (6, ,20)  (IA(I),I=1,NSV) 

NSENSZ(I) ,1=1 ,NS08J. 

READ  (ISCR1.70)  (IA(I) , Isl ,NSOHJ) 

WRITE  (6>,M0) 

WRITE  (h,?20)  (IA(I),T=1,NS0BJ) 

NOMINAL  INFORMATION 

SENS(I ),I=J ,NSV, 

RF*D  (1SCPI,1«0)  (RA(I  ),  1  =  1, NSV) 

WRITE  (6,150) 

WRITE  (6, ^60 J  (RA(I) , I=l,NSV) 

OBJZ(I ) , I=i ,NSOBJ, 

READ  (ISCui.luO)  (RA(I),I=1 ,NSOBJ) 

WRITE  (6, f 70 ) 

WRITE  (6, ,60)  (RA(I) , 1=1 ,NSOBJ) 


******«**. 


SENSITIVITY  INFORMATION 


•***•***•* 


WRITE  (6,}fl0) 

oo  ao  isens=i,nsv 


10 
20 
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ao 
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60 

70 

80 

90 

100 

110 

120 

130 

lao 

150 
160 
170 
180 
190 
200 
210 
220 
230 
2ao 
250 
260 
270 
280 
290 
300 
310 
320 
330 
3ao 
350 
360 
370 
380 
390 

aoo 
aio 
a20 
a30 
aao 
050 

060 

070 
080 
090 
500 


127 


subroutine  copeos 


SEPT.  77 


10 
20 

so 

«0 

c 
c 
c 

50 
60 
70 
80 
90 

no 

120 
130 

140 
150 

160 
170 
180 
190 
200 

210 
220 


ISENSI/    NspsjST 

READ  (ISCpi,70)  ISENSI, NSENSI 

WRITE  (6,iqo)  ISENSI 

IP  (NSENSt.E'J.O)  wrtlTE  (6,200) 

IF  (NSENSt.E'3.0)  GO  TO  «0 

DO  30  JJsf.NoFNSI 

SENS(I,J)'# 

READ  (ISCpi,IuO)  SENSIJ 

08JZ(I) ,I-|,NS08J. 

READ  (ISCpj.luO)  (RA(I), lsi,NS08J) 

NsMlN0(«,K|$08j) 

WRITE  (6,?10J  SENSIJ, (RA(I), 1st ,N} 

N*(NS08J-?)/4 

IF  (N.LT.i)  GO  TO  20 

Ll=5 

DO  10  1=1. N 

L2=L1*3 

L2=mino(L?,n50BJ) 

WRITE  (6,?20)  (RA(J),J=L1,L2) 

Ll=Ll*4 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 


FORMATS 


FORMAT 
FORMAT 
FORMAT 
FORMaT 
FORMAT 

139HNUMHE 
FORMAT  ( 

1ES) 
FORMAT 
FORMAT 

IVES) 
FORMAT 
FORMAT 

1ITIVITY 
FORMAT  ( 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

1  FOR  THI 
FORMAT  ( 
FORMAT  ( 
END 


//SX,SHTIT|_E/5X,20Aa) 
21A4) 

l6I«?J 

lH t ,4X,47HSTAN0ARD  SENSITIVITY  ANALYSIS  RESULTS  (NCALC=3)) 
//SX,36HNUMRER  OF  SENSITIVITY  VARIABLES,  NS V , 9 x , l H= ,  I  5/5X , 
R  OF  SENSITIVITY  OBJECUVfS,  NSOfl  J  ,  6X  ,  l  Hs  ,  I  5  ) 
//SX,52HGLOBAL  NUMBERS  ASSOCIATED  *lTH  SENSITIVITY  VARIABL 


5y,!0T5) 
//SX,53HGL0BAL 


NUMBERS  ASSOCIATED  "iTH  SENSITIVITY  OBJfcCTI 


SpiS.8) 

/>//5X,2bHN0MlNAL  DESIGN  INFORMATION//5X,3iHVALL'ES  OF  SENS 

VapMbLES) 

5y,SE13.5) 

//SX,UlHVALDES  OF  SENSITIVITY  OBJECTIVE  FUNCTIONS) 

/////5X,2«HSENSITI VITY  ANALYSIS  RESULTS) 

//SX.lSH&LORAL  VARIABLE,  I<5// I  OX,  1HX,20X,4HF(X)) 

/4X.55HTHE  NOMINAL  VALUE  IS  Th£  ONLY  VALUE/5X,«j7HSPECIFIfcD 

S  VARIABLE) 

/•<X,E12,4,3X,«E13.<») 

l«X,«E13.«) 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
8b0 
870 
880 
890 
900 
910 
920 
930 
940 
950 
9&0 
970 
980 
990 
1000 
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C 

110 

120 

C 
C 
C 
C 


SUBROUTl 
COMMON  / 

ifdchm,ct 

2ITE«,INF 

COMMON  / 
COMMON  / 

12vy,n2vA 

•UISCP.2 

OIMENSIO 
******** 
HOUTpjE 

COMBINAT 

******** 
WRITE  OU 
BY  G,  N, 
NASA-AME 
REwlND  I 


Nf  COPE06  (ARRAY, RA, U,NArRAy,NDrA,NDIA) 

CnmnI/  I  PR  I  NT, NOV,  ITMAX,NC0N,NSIDE,  I CNDI R , NSC AL , NFDG , FDCH , 

»rT^lN,CTL,CTLMlN,THETA»PHl/NAC»DELFUN,0ARFUN,LIN08J,ITRM, 

Or, TGOTO, INFO, OBJ 

CnPFSi/  ATITLE(20) 

CnPF53/  SGN0PT,NCALC,I08J,NSV,NS0BJ,NC0NA,N2VX,M2VX,N2VY,M 

H.jpSENS,IP2VAr,  jPOBG,nACmX1  ,NDVT0T,L0CR(2b),LUCl(25),ISCR 


N  ARRAY(NARRAY),RA(NORA),IA(NniA) 

********************************************************** 
Tn  CALCULATE  FUNCTlONS  Of  Two  DESIGN  VARlA8LtS  FOR  ALL 
InNS  OF  A  seI  OF  PRESCRIBED  VALUES  OF  THESE  VARIABLES, 
********************************************************** 


TpijT  INFORMATION  ON  SCRATCH  UNIT  ISCR1, 

VANOERPLAATS  AUG. 

S  RESEARCH  CENTER,  HQFFETT  FIELD,  CALIF, 
Sr»t 


197a. 


UNIT  ISCR1  WRITE 


WRUF     (ISrR1,l60)     (ATI  TLE  (  I )  ,  1  =  t  ,?0) 

WRITE     (ISrR!,l70)     NCALC,N2VAR,M2VX,N2VX,M2VY,N2VY 

N2VZ. 

Mfl=L0CH8) 

M9sLOCI(9j.i 

WRITE  ( ISpRi , l 70)  (IA(I),I=MB,MR) 


two-variable  function  space 


ICALC=2 

KCALC=J 

iSIGNsl 

N8=L0CR(81 

N9«L0CR(9^-t 

00  150  I=i,m2vX 

ARRAY(N2Vy)=RA(N«) 

oo  lao  j=?,m2vy 

NR  =  N9+ISIr,N 

ARRAY(N2VY)=RA(N9) 

ANALIZE. 

call  analtz(Icalc) 

CONTINUF 

IF(IP2VAR' GT.O)  CALL 


ANALIZ(KCALC) 


UNIT  ISCR)  WRITE 


"RITE  X,  y. 

WRITE  (IScRt,l80)  RA(N8),RA(N<>) 

F(X#Y)  VA,ueS. 

N10«LOCR(To) 
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130 


iao 


150 

C 

C 

C 

160 

170 

180 


Mils 

M8  =  L 
00  1 
•NsJ  A 
RA(N 
Nils 
M8  =  M 
CONT 
Nils 
WRI  T 
CONT 
N9  =  N 
N8  =  N 
1SIG 
CONT 
KETU 


Nl  0 

OCK 

30  K 

(M8) 

11)  = 

Nl  1  + 

8+1 

INUE 

N10* 

E  C  IS 

INUE 

9+IS 

8+1 

NS-T 

INUE 
RN 


8l 

=  i',n2var 

ArRAY(N) 

1 


N3VAR-1 

Cri ,  180)  (RA(K),KSN10,N1 1 ) 

Irn 

Stgn 


FORMATS 


FORMAT  (2oAa) 

FORMAT  (Uis) 

FORMAT  (5F15.8) 
END 


510 
520 
530 
5ao 
550 
5o0 
570 
560 
590 
600 
610 
620 
6.S0 
6U0 
650 
6o0 
670 
660 
690 
700 
710 
720 
730 


130 


SUBRqUTInf  COPE07 


SEPT.  77 


Sub 
com 

1FOC 
2ITE 

COM 
COM 

12VY 

DIM 
*** 

ROU 

UNI 

*** 

BY 

NAS 

REw 


ROUT 

MON 

HM,C 

R,IN 

MON 

MUN 

»n2v 
SCR2 
ENS  I 

*  *  ** 

tine 

T  IS 

**  ** 
G,  N 

A- AM 
IND 


iNp  COPE07  (RA,  IA,NDRA,NDlA) 

/CnmNI/  IPRINT,MOV,ITMAX,NCON,NSIOE,ICNOIR,NSCAL,NFDG,FDCH, 

T,pTMlN,CTL,CTLMlN,THETA/PHl,NAC»DELFUN,OABFUN,LINOBJ,ITRM, 

FOn, TGOTO, INFO, OBJ 

/CnPFSi/  ATITLE(^O) 

/COPES5/    SGN(1PT,NCALC,I0BJ,NSV,NS0BJ,NC0NA,N2VX,M2VX,N2VY,M 

AW.TpSENS, IP2VAR,ip0BG,nACmX1,nOVT0T,L0CR(25),LOCI(25),ISCR 


ON    ra(nDRA) , I A(NOIA) 
************************************************** 


********* 


Tn  print  Two  variable  function  space  information  stored  on 
crT. 

*********************************************************** 
,  VANOERPLAATS  AUG.,  1974, 

ES  RFSEARCH  CENTER,  MOFFETT  field,  CALIF, 
ISrRl 


GENERAL  INFORMATION 


TITLE. 

HEAD  (ISCPI.SO)  (ATITLE(I),I=1 ,20) 

READ  (ISCri,<?0)  NCALC,N2VAR,M2VX,N2VX,M2VY,N2VY 

IF(NCALC.igE.'J)  RETURN 

N2VZ(I),  I  =  l,NpVAH. 

READ  USCr1,90)  (Ia(  I),  Izl  ,N2VAR) 

WRITE(6,5n) 

(ATITLE(I), 1=1,20) 


WRITE 
N2VX, 
WRITE 
N2VZ. 
WRITE 
WRITE 


(6,40) 
N2Vy. 
(6,  140) 


(6, 

(6, 


ISO) 
100) 


N2VX,N2VY 


(IA(I),  I  =  1,N2VAR) 


TWO-VARIABLE  FUNCTION  SPACE  INFORMATION 


DO  J 

WRIT 
DO  3 
X,  Y 
READ 
F(X, 
NJ0  = 
Nl  1  = 
READ 
N:u 
IF  ( 
Nl  1  = 
IF(J 
IF(J 
IF  ( 


0  I=1.M?VX 
E  (  6  ,  j"  6  0  ) 
0  J*1.M?VY 

(ISCP1.170)  XX, YY 

Y)  . 

LOCR(fo) 

Nl 0+N?vAR-l 

(ISCRi,l70)(RA(K),KsN10,Nll) 

N2VAR'jLT.a)  N  =  N2VAR 

Nl 0*n1| 

.EU.l)  wRITE(6,120)Xx,YY,(RA(K),KsNt0,Nll) 

.GT.l,  wRTTE(6,H0)YY,(RA(K),K  =  N10,Nll) 

N.LE.M2VAR)  GO  TO  20 


10 

20 
30 
40 
50 
60 
70 
BO 
90 
100 
110 
120 
130 
140 
ISO 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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10 
20 
30 


C 

C 

40 

50 

80 

90 

100 

110 

120 

130 

1«0 

150 
160 
170 


Ms(N2VAR-i )/a 

NsNl 0*4 

DO  10  K=1.M 

LsN*3 

lF(L.GT.NJn  L=N11 

WRITE  (6,130)   (RA(KK) ,KK=N,L) 

N  =  L+1 

CONTINUE 

CONTINUE 

RETURN 


formats 


format  (/>s*#shtitle/5x,20au) 

Format  (  lMt  ,<i*,35HTwO-VARl  ABLE 

FORMAT  (2nAU) 

FORMAT  (UlS) 

FORMAT  (5y,iOI5) 

f-ORMAT  (/Js*,E12.a,  3X,aEi3.U) 

FORMAT  (/TX,2E12.<J,3X,4Ei3,4) 

format  (3?x,«ei3.a) 

FORMAT  f /;//5x,a«HGL0HAL  NUMBER 


FUNCTION  SPACE  RESULTS) 


ASSOCIATED 


WITH     X-VARIA8LE, 
1  ,  i5//SX,4aHi;L0BAi.    NIIMRER    ASSoClATFO    *iTh    Y-vARiAB|_E,     N2VY    = 
FORMAT     (//5X,37HGL0BAL    NUMBERS    ASSOClAlEO    ><ITH    F(X,Y)) 
FORMAT     (//10X,1HX,11X, 1HY,20X,6HF (X, Y) ) 
FORMAT     (SpiS.fl) 

End 


N2VX 
15) 


510 
520 
530 
5a0 
550 
560 
570 
580 
590 
600 
610 
620 
o30 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 


132 


SUBROUTINp  cONMIN 


10 
20 
C 


C 
C 
C 
30 


ao 


SUBR 
1,N2, 

COHM 

1FDCH 
2ITER 

COMH 
IHI  J  , 
2F1,A 
«IObJ 
*,III 

DIME 
1G2(N 

Rout 
mini 

BY  G 
NASA 
REFE 


STOR 


RE-S 
IF  ( 
DO  1 
X(I) 
CONT 
CONS 
NDV1 
N0V2 
IF  ( 
GO  T 


OUT  IN 
N3,N4 
ON  /C 
M,CT, 
,INFO 
ON  /C 
ARQBJ 
LP/FF 
#KOBJ 
,NLNC 
NSION 

2),C( 

INE  T 

MIZAT 

.  M, 

-AMES 

HENCE 

MINIM 

NASA 

AGE  R 

PROGR 

ARRAY 

CALE 
NSCAL 
0  1  =  1 
=C(I) 
INUE 
TANTS 
=  NDV  + 
=  NDV  + 
IGOTO 
0  (15 


F  C 
,NS 

NMN 

rTM 

R.I 

dnS 

.  AR 
F,D 
.KC 
,JG 

X( 

N4  1 

n  s 

TON 
VAN 

PF 

7 

TZA 

TM 

FQU 

AM 

WH 
VAR 

'.EG 

.NO 


OFRPL 
SeaRC 

CONMI 

TiOn: 

X-62, 

IREME 

-  700 

-  APR 
ERE  N 
UBLE 
.O.OR 
V 


AATS 
H  CE 
N  . 

US 
282, 
NTS: 
0  DE 
ROX, 
3  = 
S  IF 
,IGO 


APRIL,  1972. 
NTER,  moffett  field,  CALIF. 

A  FORTRAN  PROGRAM  FOR  CONSTRAINED  FUNCTION 
ER'S  MANUAL,   BY  G.  N,  V AndERPL A  A TS , 
AUGUST,  1973, 

CIMaL  WORDS  (CDC  COMPUTER) 

2*(NDV**2)+?6*NDV+4*NC0N, 
NOV+2, 

REQUIRED, 
TO.EQ.O)  GO  TO  20 


,EQ.O)  GO  TO  30 
O,3?0, 360,650,670), 


IGOTO 


Save  input  control  parameters 


CONTIN 

IF  (IP 

IF  (LI 

TOTALL 

SOLUTI 

WRITE 

RETURN 

CONTIN 

lOMlsI 

IDM2=I 

IDM3sI 

DMi=OE 

DM^aOA 

DM3=CT 


UE 

RINt.gT.O)  WRITE  (6,1230) 

NOB. r.E'i. O.OR,  (NcON#GT.0,0R,nSIOE.GT,0)  )  GO  TO  <40 

Y  UmcONSTRaINED  FUNCTION  with  LINEAR  OBJECTIVE. 

ON  js  UNBOUNDED, 

(6,070)  LIN0BJ,NC0n,NS1DE 

UE 

TRM 

TMAy. 

Cnotr 

LFUkj 

BFUm 


10 
20 
30 
40 
50 
oO 
70 
BO 
90 

too 

1  10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
4  0.0 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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DMU3CTMIN 

DM5=CTL 

DM6  =  CTLMIig 

DM7=THETA 

OMgrPHl 

DM9=FDCH 

OM10=FOCHM 


DEFAULTS 


IF  (ITRM,, E#0)  ITRMai 

IF  (ITMAX^lF.O)  ITMAX=20 

NOVlsNDV** 

IF  (ICNOIp,EQ.O)  ICNDIRsnDVI 

IF  (OELFUm.lE.O.)  DELFUNs.OOOl 

CT=-A8S(Ct) 

IF  (CT.GE'.n.)  CTs-.l 

CTMlN=ABS^cT^IN) 

IF  (CTMIn#le,o.  )  CTMlN=,o04 

CTL=-*8S(rTL) 

IF  (CTL.Gf.O.)  CTL=-0,01 

CTLMIN=ABs(CTLMIN) 

IF  (CTLMIn.lE.O.)  CTLMINs.001 

IF  (THETA' LE.O.)  THETAsl, 

IF  (PHI.Lf.O.)  PHI=5. 

IF  (FDCH.i F.O. )  FDCHs.Ol 

IF  (FDCHM'<LF,o.  )  FOCHMs.Ol 


INITIALIZE  INTERNAL  PARAMETERS 


INFOGsO 

ITER=0 

JDIRsO 

IOBJsO 

KOBJsO 

NQV2=NDV+? 

KCOUNTsO 

NCAL(1  )sO 

NCAL(2)=0 

NAC  =  0 

NFEASsO 

MSCAL=NSC*L 
CT | =ITRM 

CT J  =  t . /CT7 

DCTs(CTMlK,/AbS(CT)  )  *  *C  T  1 
DCTL=(CTLmIN/AHS(CTL) )**CTt 
Phi IsPhi 

ABOBJs.l 
A80BJ13, I 
ALPHAXs.l 


510 
520 
530 
5«0 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
660 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
84  0 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
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NCOBJro  1010 

CTAMsAflS(rTMlN)  1020 

CTBMsABS(rTLMTN)  1030 

C       CALCULATE.  NUMBER  OF  LINEAR  CONSTRAINTS,  NLNC,  1040 

NLNCrO  1050 

IF  (NCON.pQ.O)  GO  TO  feO  1060 

DO  50  I=t.NCON  1070 

IF  (ISC(I).GT.O)  NLNC=NLNC+1  lObO 

50     CONTINUE  1090 

60     CONTINUE  1100 

c      — — — -.; ...... .- . —     1110 

C            CHECK  TO  BE  SURE  THaT  SIDE  CONSTRAINTS  AR£  SATISFIED               1120 

C      -  — — -. .-- l  130 

IF  (NSIDE'.eq.O)  GO  TU  1 00  1110 

DO  90  I=i|nOV  1 150 

IF  (VLB(I).lE.VUB(I) )  GO  TO  70  1 1 bO 

XXs.5*(VLR(I)*VUB(I))  1170 

X(I)sXX  UttO 

VLB(I)=XX  1190 

VUB(I)=XX  1200 

WRITE  (6  ,  7  1  ?0 )  I  1210 

70     CONTINUE  1220 

XXsX(I)-Vi  B(D  1230 

IF  (XX.GE.o.)  SO  TO  80  1240 

C      LOWER  BOU^io  VIOLATED,  1250 

WRITE  (6fj|30)  X(I),VLB(n,I  1260 

X(I)=VLB(T)  1270 

GO  TO  90  1280 

80     CONTINUE  1290 

XXsVU8(I)lx(I)  1300 

IF  (XX.GE'.o.)  GO  TO  90  1310 

WRITE  (6,JiaO)  X(I),VUB(I)  ,  I  1320 

X(I)sVUB(T)  1330 

90     CONTINUE  1 3a0 

100    CONTINUE  1350 

C       .........I.. ...... .............................. ..................      1560 

C                         INITIALIZE  SCALING  VECTOR,  SCAL  1370 

C      .......... ... . . . —     1380 

IF  (NSCAL'EQ.O)  GO  TO  1«o  1390 

IF  (NSCAl'lT.O)  GO  TU  1 20  1400 

DO  110  I=f,NDV  l  a  1 0 

110    SCAL ( I ) = 1 .  1420 

GO  TO  iao  1*430 

120    CONTINUE  1440 

DO  130  I=T,nOV  1450 

SIsABS(SC»L(I))  1460 

IF  (SI.LT'#  j  .OF-20)  SIsl.oE-5  1470 

SCAL(I)=St  1480 

Slsl,/SI  1490 

X(I)=X(I),st  1500 


13  5 


130 
140 

C 

c 
c 


150 


160 


170 
180 


j90 


200 
210 


subro'itinp  conmIn  -  constrained  function  minimization  sept,   77 

IF  CNSIDE' EO.O)  GO  TO  i 30 

VLB(I)=VlR(T)*SI 

VU8(I)=VUqfi)«SI 

CONTINUE 

CONTINUE 

*****  CALCULATE  INITIAL  FUNCTION  aNO  CONSTRAINT  VALUES   ***** 

1NF0=1 

NCAL(1 )  =  1 

iGOTOsl 

GO    TO    950 

CONTINUE 

OBJUOBJ 

IF  (DABFUw.lE.O.)  DAbFUNs.OOt •ABS(OBJ) 

IF  (DABFUn.lT.1 .OE-10)  DABFUNsl.OF-10 

IF  (IPRINy.lE.O)  GO  TO  260 

PRINT  INITIAL  DESlG*  INFORMATION 


WRITE  (6,*£«0) 

DO  160  I=?,N0V,6 

MlrMINO(Nrw,  i  +  5) 

''RITE  (6,?o(0)  I,  (VLB(J),  J  =  I,Ml) 

WRITE  (6,?2<?0) 

oo    170    r »1 , NOV» 6 

MlrMiNO(Nnv,  US) 

WRITE  (6,ioiO)  I, (VUB(J),JsI,Ml) 

CONTINUE 

IF  (NSCAL',GF.O)  GO  TO  1<?0 

WRITE  (6,1*310) 

WRITE  (6,,<i70)  (SCALd  ),lsl,NOV) 


•   _   •  —  r  I  t  >  •  j   * —-»/»« 

CONTINUE 

IF  (NCON,Frj#0)  GO  TO  220 

IF  (NLNC.FO.O.OR.NLNC.EU, 

WRITE  (fc,jO?0) 

DO  200  I=i ,NCON, 15 

MliMlNllf  Nf-nu.  T  ♦  1  U  ^ 


NCON)  GO  TO  210 


L>U  <iOO  I  =  i  ,NLON,  la 

Ml=MiN0(N^ON»  T* 1 « ) 

WRITE  (6, 1030)  I, (ISC(J)»JSI/M1) 

GO  TO  220 

IF  (NLNC.FQ.NCON)  rtRITE  (6,1040) 

IF  (NLNC.FQ.O)  WRITE  (6»l°50) 


1510 
1520 
1530 
1540 
1550 
15o0 
1570 
15o0 
1590 
loOO 
1610 
1820 
1630 

1640 

lb50 
16ol) 
1670 
1660 
lo90 
1700 
1710 
1720 
1730 
1740 
1750 
1  7&0 
1770 
1760 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
18fe0 
18  70 
I860 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
19b0 
1970 
1980 
1990 
2000 
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220    CONTINUE 

"RITE  (6,?uS0)  OBJ 

WRITE  (6,ia60) 

DO  230  Isj.NDv 

X1  =  I. 

IF  (NSCAL'.NE.O)  XlzSCAL(I) 
230    Gl(I)sX(I|*xl 

DO  240  I=7,nDV,6 

Ml=MlNO(Nnv, 1*5) 
240    WRITE  (6, ,oiO)  I, (Gl (J), J=I,M1) 

IF  (NCUN.fo.O)  GO  TO  26° 

WRITE  (6h(|80) 

DO  250  IsJfKjCON,o 

MlsMlN0(NrON, 1+5) 
0    WRITE  (6,7oiO)  I, (G(J), J=I,Ml) 
0    CONTINUE 

IF  (IPRINt.RT.1)  WRITE  (6,1370) 


25 

26 

C 

C 

c 

27( 


*****#***»*.»*******   8EGIN  MINIMISATION   *****#****************»* 
CONTINUE 

iter=iter;i 

IF  (ABOBJi #Lr . .0001 )  ABOBJ 1 = . 00 0 1 

IF  (ABOBJi".GT..2)  AB0RJ1  =  .2 

IP  (ALPHA*. GT. I.)  ALPHAXsl. 

IF  (ALPHA,f#LT..01)  ALPHAX=,01 

IF  (IPRINt.gT.2)  WRITE  (6,1320)  ITER 

NEEAS=NFEis*l 

IF  (NFEAS'  r,T.  10)  GO  TO  790 

IF  (IPRINf<GT.3.ANo.NCON#GT.0)  wRXTE  (6, 1330)  CT,CTL,PHI 

CTA=ABS(Ci) 

IF  (NCOBJ'fEO.0)  GO  TO  310 

NO  MOVE  On  LAST  ITERATION,   DELETF  CONSTRAINTS  THaT  AWE  NO 
LONGER  ACTIVE. 

NNACrNAC 

DO  300  I=,,nNaC 

NIC=IC(I) 

IF  (NIC.Gt.nCON)  NACsNAC-1 

IF  (NIC.Gt.nCON)  GO  TO  300 

CT 1 =CT 

IF  (ISC(NTC1,GT.0)  CTl=CTL 

IF  (G(NIC).GT.CTI)  GO  TO  300 

NAC=NAC-1 

IF  (I.EO.NNAC)  GO  TO  300 

IP1=I*1 

DO  290  K=Tpi ,NNAC 

1I=K-1 

DO  280  J=i,NDv2 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
22U0 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
23U0 
2350 
2360 
2370 
2380 
2390 
2400 
2aio 
2420 
2a30 

2440 
2450 
2460 
2470 
2480 
2490 
2500 
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280 
300 
310 


320 


330 


350 
360 

370 


A(II,J)=AfK,J) 
lC(Il)sIC'fK) 

CONT inue 

go  to  400 

continue 

if  (mscal' lt.nscal.or.nscal.eq.o)  go  to  330 

IF  (NSCAl'lT.O.ANO.KCOUNT.LT.ICNOTR)  GO  TO  330 

MSCAL=0 

KCOUNT=0 

SCALE  VARIABLES 


1)0  320 

SIsSCA 

XIsSl* 

SIB=SI 

IF  (NS 

IF  (SI 

SCAL(I 

Slsl  ./ 

X(I)  =  X 

IF  (NS 

VLB(H 

VUB(I) 

CONTIN 

IF  (IP 

WRITE 

WRITE 

CONTIN 

MSCALs 

NAC  =  0 


1=1 ,MOV 

LCIi 

CAL'r,T.n)  SIsAHS(XI) 
,LT  i  .0E-10)  GO  TO  320 

)=sT 
si 

I*ST 

IDE'.EQ.O)  GO  TO  320 

=SIr.sI*VLH(I) 

sSIr*sI*VUB(I) 

HE 

RINt.lT.U .OR. (NSCAL.LT.O.ANO.ITER.GT.J ) )  GO  TO  330 

(6»13«0) 

(6,1U70)  (SCAL(I),lsl,NOV) 

UE 

MSCiL*! 


obTatn  gradients  of  objective  an0  active  constraints 

iNFOr? 

NCAL(2)=Nf AL(2)*l 
IF  (NFDG.i  T.2)  GO  TO  350 
IG0T0=2 
GO  TO  RSO 
CONTINUE 
JGOTO=0 
CONTINUE 

CALL  CNMNrtj  (JG0T0,X,DE,G, ISC, IC , A , G 1 , VLB , VUH , SC AL , C , NCAL , DX, OX  1 , F 
H»XI,III#M1  ,N2,N3,N«) 
iGOTOsi 

IF  (JGOTO'.gT.O)  GO  TO  950 
CONTINUE 
iNFOel 

IF  (NAC.Gf.n3)  GO  TO  790 
IF  (NSCAL'.EO.O.OR.NFOG.EQ.O)  GO  To  400 


2510 
2520 
2530 
2540 
2550 
2560 
2570 
2560 
2590 
2600 
2610 
2620 
2b30 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
27U0 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2630 
28U0 
2850 
2860 
2870 
2860 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
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C 
C 
C 
C 

3«0 


390 

aoo 

C 
C 
C 
C 


SCALE  GRADIENTS 


410 

C 

420 
430 


440 


450 

C 

C 


scale  GRAniENT  of  objective  function, 

00  360  I=j,nOV 
DF(I)aOF(T)*SCAL(I) 

if  (nfdg.pq.  1  .or.naceq.o)  go  to  '400 
scale  gradifnts  of  active  constraints, 

00  390  J=i,NOV 

SCJ=SCAL( H 

DO  390  1=1, NAC 

*(I« J)=A(T, J)*SCJ 

CONTINUE 

IF  (IPRINt.lT.3,OR,NCON.EO,0)  GO  TO  a50 


PRINT 


PRI 
Mir 

M2  = 

IF 

00 

J  =  I 

IF 

GI  = 

Cl  = 

IF 

GI  = 

IF 

ACT 

Ml  = 

MSI 

GO 

M2  = 

VIO 

MSI 

CON 

M3  = 

WRI 

IF 

WRI 

WRI 

WRI 

IF 

WRI 

M3  = 
WRI 

CON 


NT  AC 
0 

N3 
(NAC, 

420  I 

C(I) 

(J.GT 

G(J) 

CTAM 

(1SC( 

GI-C1 

(GI.G 

IVE  C 

Ml  ♦  1 

(Ml)  = 

to  az 
M2»l 

Lated 

(M2)s 

TINUE 
M2-N3 
Tfi  (6 
(  M  1  ,  E 
TE  (6 
TE  (6 
TE  (6 
(M3.E 
TE  (6 
N3+1 
TE  (6 
TINUE 


TtVE  AND  VIOLATED  CONSTRAINT  NUMBERS, 


Erj.O)  GO  TO  430 
=i.NAC 


.NCON)  GO  TO  420 


Ji.GT.O)  Cl=CTBM 

T '.  0  .  )  GO  TO  410 
OmSTRaINT, 

J 

0 

CONSTRAINT, 


.T060)  Ml 

Q'40)  GO  TO  440 

#  *070) 

.ia<)0)  (msi  ( I) ,  1  =  1, mi  ) 

fJoflO)  Mi 
Omo)    GO  TO  450 
#1070) 

,1490)   (MSl(I), I=M3,M2) 


CAicULATE  gradients  of  active  side  constraints 


3010 
3020 
3030 
3040 
3050 
3060 
3070 
3060 
3090 
3100 
31  10 
3120 
3130 
3140 
3150 
31  60 
3170 
3160 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3260 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3360 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3460 
3490 
3500 
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460 


C 
a70 


48o 


c 
c 
c 
c 


IF  (N 

MCN1  = 

«1=0 

DO  49 

LOWER 

XI  =  X( 

XIDSV 

M2  =  A 

IF  (X 

GI  =  (X 

IF  (G 

MlsMi 

MSI  (M 

N  A  C  =  N 

IF  (N 

MCN1  = 

DO  46 

A(NAC 

A(NAC 

IC(NA 

G(MCN 

ISC(M 

UPPER 

XTO  =  V 

X12  =  A 

IF  (X 

GIs(X 

IF  (G 

HlsMi 

MS1(M 

NAC  =  N 

IF  (N 

MCNls 

DO  48 

A(MAC 

A(NAC 

IC(NA 

G(MCN 

ISC(M 

CONTI 


SIPE'.EQ.O)  GO  TO  510 
NCON* 


0  I 

BO 

n 

LB( 

BS( 
12. 
10- 
I.L 

♦  1 
1)  = 
AC  + 
AC. 
MCN 
0  J 

♦  J) 

,n 
o  = 
D  = 

CNl 
BO 
UB( 
8S( 
12. 
I-x 
I.L 

♦  1 
1)  = 
*C  + 
AC. 
MCN 
0  J 
,J) 
.1) 
C)  = 

1)  = 

CNJ 

NUt 


=T.nDv 

UNO. 

I] 

XT01 

Lt.1.)  X  12=1 . 

Xh/*l2 

T  .1  ,0E-6)  GO  TO  470 


1 

Gp.N3)  GO  TO  790 

ui 

s[,NDV 
=  0. 

=-1. 

MTN1 
GT 

)  =  1 

UNO. 

I] 

*T0> 

Lt.1.1  X  12=1 . 

In)  /x  i  2 

T'.„t,OE-o)  GO  TO  490 

I 
1 
Gf.N-S)  GO  TO  790 

Ul 
=i,NOV 

=  0. 
s  1  . 
MrNi 
Gt 
)  =  1 


PRINT 


PRINT  ACTivF.  SIDE  CnNSTRAlNT 

IF  (IPWINT#LT.3)  GO  TO  510 

"RITE  (6,Jo90i  mi 

IF  (Mt ,E«.0)  GO  TO  S 1 0 

"RITE  (6,noO) 

DO  500  I=i,Ml, 15 


NUMBERS. 


3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3e30 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3»  1  0 
3820 
3830 
3840 
3850 
3860 
3070 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
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500 
510 
C 


520 


530 

540 

550 

C 

C 

c 


560 
C 
C 
C 

c 


H2=mino(m7, i*ttt) 

WRITE  C6,i<|90)  (MSI  (J),  Jal,M2) 

CONTINUF 

PRINT  GRAnlFNTS  OF  ACTIVE  AND  VIOLATED  CONSTRAINTS. 

IF  (IPRINT.lT.a>  GO  TO  550 

«RITE  (6,i350) 

DO  520  1=1 ,nDV,6 

MlsMlNO(Nr>v,  1*5) 

WRITE  (6,T0!0)  I, (DF(J),JsI,Ml) 

IF  (NAC.Eo  o)  GO  TO  550 

WRITE  (6,1360) 

DO  540  I=i ,NAC 

H1=IC(I) 

M2  =  Ml-NCO|g 

M3  =  0 

IF  (M2,GT'o)  M3  =  IABS(MS1 (M2)  ) 

IF  (M2.LE'o)  WRITE  (6,99o)  Ml 

IF  (M2.GT'o!  WRITE  (6,1000)  MJ 

DO  530  K  =  "|,vOV,6 

Ml=MlN0(Nnv,K+5) 

WRITE  (6#  To  1  0  )  K,  (Ad,  J)  ,  J  =  K,M1  ) 

WRITE  (6037O) 

CONTINUE 

******************   DETERMINE  SEARCH  OIRECTION  ******************* 

ALP=1.0E+?0 

IF  (NAc.Gy.O)  GO  TO  560 

UNCONSTRAINED  FUNCTION 


FINO  Dl 
NVC  =  0 
NFEAS=0 
KC0UNT= 
IF  KcOU 
IF  (KCO 
IF  (KCO 
IF  JDIR 

call  cn 

GO  TO  6 
CONTINU 


RErTTnN  OF  STEEPEST  DESCENT  OR  CONJUGATE  DIRECTION, 


KCnilNT*  1 

NT.GT.ICNDIR   RESTART  CONJUGATE  DIRECTION  ALGORITHM, 

UNT.GT.ICNDlR.0K.l0dJ.EU.2)  *COUNT=l 

UNr.FQ.l)  JDIR=0 

=  o  pIN0  DIRECTION  OF  STefPEST  DESCENT, 
MNn2  (JDIK, SLOPE, DFTDF1, OF, S, Nl ) 
10 
E 


CONSTRAINED  FUNCTION 


FIND  USAHi'e-FE ASIHLE  DIRECTION, 

KCOUNT=0 

JDIRsO 

PHI«10.*PHt 

IF  (PHI.Gt.1000,  )  PHlslOOO, 


aoi  o 

U020 

aoio 
aoyo 
4050 
aooo 

U070 

4080 

ao9o 

41  00 
4110 
4120 

alio 
al  no 

4150 
41o0 
41  70 
4160 
4190 
4200 
4210 
4220 
4230 

4240 

4250 
42o0 
4270 
4260 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
43o0 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
<4440 
4450 
44t)0 
4470 
4480 
4490 
4500 
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SEPT.  77 


570 

580 
C 
C 
C 

c 
c 
c 


590 


600 
610 
C 
C 

C 


IF  (NFEAS'.EC.i  )  PHJsPMIl 

CALCULATE  DIRECTION,  S. 

CALL  CNMNn5  (NVC,SLnPE,DF,G,  ISC,IC,A,S,C,MS1,B,N1,N2,N3,N«,N5) 

IF  THIS  UfSTGN  IS  FEASIBLE  AND  LaSI  ITERATION  waS  INFtASIBLE, 

SET  AR08Jis.OS  (5  PERCENT). 

IF  (NVC.Eo.O.ANn.NFEAS.GT, 1  )  ABOBJls.05 

IF  (NVC.Eo.O)  NFtASsO 

IF  (IPRINy.LT.i)  GO  TO  580 

WRITE  (6, 1380) 

DO  570  I  =  i,KjAC,6 

M1=MIH0(N|C, 1*5) 

WRITE  (6,?mO)  I ,  (  A  ( J,  NOv  !  ) ,  J  =  I ,  mj  ) 

WRITE  (6,i2?0)  S(N0V1) 

CONTINUE 

******************  nNE-Dl"ENSIONAL  SEARCH  ************************ 

IF  (S(NOVj) .LT. 1 .OE-6. ANO.NVC.EO.O)  GO  TO  690 

FINO  ALPHA  TO  OBTAIN  4  FEASIBLE  DESIGN 

IF  (NVC.Eo.O)  GO  TO  610 

A|.P  =  -t  . 

DO  600  I=?,NAC 

NCI  =  IC(I  ) 

Cl=G(NCI  ) 

CTC=CTAM 

IF  (ISC(Nf>i).GT,0)  CTCsCTBM 

IF  (Cl.LE'.CTC)  GU  TO  600 

ALP1=0. 

DO  590  J=j,njDV 

ALPl=ALPUsf  J)*A(I,J) 

ALP1=ALPUA(I,N0V2) 

IF     (ARS(A,  pi ) .LT.l .OE-20)     GO    TO    600 

ALP1=-C1/»LP1 

IF  (ALP1 .RT.ALP)  ALPsALPl 

CONTINUE 

CONTINUE 

LIMIT  CHANCE  TO  AB08J1.0BJ 

ALPlsl ,0E*20 

SlsA8S(0B  fj 

IF  (SI.LT'.. 01)  Sis. Ol 

IF  (*BS(S|  nPE) .GT.1.0E-20)  ALP  1  = AROB J  1 »S I /SLUPE 

ALPl=A8S(iLPl  ) 

IF  (NVC.Gt.q)  ALPl=10.*ALPl 

IF  (ALPl.l  T.ALP)  ALPsALPl 


LIMIT  CHANGE  IN  VARIABLE  TO  ALPHA* 


4510 
4520 
4530 
U5a0 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
49b0 
4970 
4980 
4990 
5000 
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C      1-- — — - — - 5010 

*LP1 1=1 .0f*20  5020 

DO  620  I=i, NOV  5030 

SIrAHS(S(T))  5040 

XIsABS(X(j))  5050 

IF  (SI. LT. 1.0^*10. OR, XI. LT, 0,1)  GO  TO  620  50&0 

ALPl  =  4LPM4)(,x  I/SI  5070 

IF  (ALP1 .1 T.ALP11)  ALP11=ALP1  5060 

620    CONTINUE  5090 

IF  (NVC.Gf.O)  ALP1  1  =  1  0 . «  ALP  1  1  5100 

IF  (ALP1  f  LT.ALP)  ALPsALPU  5110 

IF  (ALP.Cif.l  ,OE*20)  ALP=1,0E*20  5120 

IF  (ALP.Lf.1 .0E-20)  ALP=l,0E-20  5130 

IF  (IPRINt#lT,3)  GO  TO  640  51U0 

WRITE  (6,(3901  5150 

DO  630  I  =  i",Nt)V,6  5160 

MisMiN0(Mnv,I*5)  5170 

630    WRITE  (6ho|0)  I,  (S(J)  ,  J=I,Ml)  5160 

"RITE  (6r?ll0)  SLOPE, alP  5190 

6*10    CONTINUE  5200 

IF  (NCON.GT.O.OR.NSTDE.GT.O)  GO  To  660  5210 

C    .  ;._ - -  5220 

C  DO  nNE-OlME'JSIOMAL  SEARCH  FOR  UNCONSTK  a  I  NED  FUNCTION  5230 

C 52a  o 

JGOTO=0  5250 

650    CONTINUE  5260 

CALL  CNMN05  (X,S,DF,G,A, IC,SCAL,C,N1,N2,N3,N«)  5270 

IG0T0=4  5280 

IF  (JGOTO'.GT.O)  GO  TO  950  5290 

JD1R=1  5300 

C      PROCEED  Tn  c0KjVERGENCE  CHECK,  5310 

GO  TO  t>80  5320 

C      1 5330 

C        SOLVE  0n£. DIMENSIONAL  SEARCH  PROBLEM  FOR  CONSTRAINED  FUNCTION  5340 

c      - - 5  350 

660    CONTINUE  53t>0 

JGOTO=0  5370 

670    CONTINUE  5380 

CALL  CNMN06  (X,DF,G,  ISC,S,G1  ,G2,VLB,  VtJB,SCAL,Nl,N2)  5390 

IG0T0=5  5400 

IF  (JGOTO'gT.O)  GO  TO  950  5410 

IF  (MAC. Eii, 0)  JDIRsl  5420 

C      1... 54  3  0 

C      •*»******,*,»*•****      UPDATE  ALPHAX    »#**«***♦«**#***»*********  5440 

C . .---. 5450 

680    CONTINUE  5460 

690    CONTINUE  5470 

IF  (ALP.Gt.1 .0E+19)  ALP=0.  5480 

C       UPDATE  ALphaX  TO  BE  AVERAGE  UF  MAXIMUM  CHANGE  IN  X(I)  5490 

C       ANO  ALHPAy.  5500 
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SEPT.  77 


700 


71  0 


720 


730 
740 


750 
760 


770 
780 
C 
C 


ALP11=0. 

DO  700  1=7, NOV 

5I*ABS(S(T)] 

xi  =  abs(X(T)  ) 

if  (xi.lt'.i  .0^-10)  go  to  700 

alp1=alp*^i/xt 

IF     (ALP1 .ftT.ALPll )     ALPllsALPl 

CONTINUE 

ALPll  =  ,5*'fALptl*ALPHAX) 

ALP12=5.**LPH4X 

IF    (ALPll'.r,T.ALP12)    ALPll=ALPt2 

ALPHAX=ALP1 1 

NCOBJsNCOhj+1 

ABSOLUTE  CHANGE  IN  OBJECTIVE. 

OBJD=OHJl.nnJ 

OBJB  =  ABS(nR.lO) 

IF  (08JB.it. 1.0E-IQ)  OBJRso. 

IF  (NAC.Eo.O.ON.UBJB.GT.O. )  NCOBJsO 

IF  (NCOBJ'CT.I)  NCOBJ=0 


PRINT 


PRINT  MOVp  PARAMETER,  n£W  X 

IF  (IPRINt.LT. J)  GO  TO  71 0 

WRITE  (6m<I00)  Al-P 

IF  (IPRINT#l  T.2)  GO  TO  780 

IF  (OrJb.GT.O.)  GO  TO  720 

IF  (IPRTNt.FO.2J  HRITE  (6,1410) 

IF  (IPRInt#gT.2)  hrite  (6,1420) 

GO  TO  740 

IF  (IPRINt.fG.2)  GO  TO  730 

"RITE  (6,Ta30)  nBJ 

GO  TO  7ao 

WRITE  (6,Ta«0)  ITER, OBJ 

"RITE  (6,1460) 

00  750  Is?, NOV 

FF1«1. 

IF  (NSCAL'ne.O)  FFlsSCAL(I) 

Si(I)sFFt;XfI, 

00  760  I  =  i",N0V,6 

MlsMINOCNpv, 1+5) 

WRITE  (6,10101  I,  (Gl  (J), J=I,Ml  ) 

IF  (NCON.fq.O)  GO  TO  780 

WRlTg  (6,?afl0) 

DO  770  I«i ,wCnN,o 

MlsMIN0(NrON, It5) 

WRITE  (6,7oi0)  I, (G(J) , J=I,M1) 

CONTINUE 


VECTOR  AND  CONSTRAINTS, 


ITER, OBJ 
OBJ 


CHECK  CONVERGENCE 


5510 
5520 
5530 
5540 
5550 
5560 
55/0 
5580 
5590 
5600 
5bl0 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5960 
5990 
6000 
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SUBROUTlNp  COCHIN  -  CONSTRAINED  FUNCTION  MINIMIZATION 


SEPT,  77 


7^0 

C 

C 

c 


810 

c 
c 
c 

820 


STOP  IF  Itep  EQUALS  ITMAx, 
IF  (ITER,  r,E,  ITMAX)  GO  TO  790 


ABSOLUTE  CHANGE  In  OBJECTIVE 


OBJHrABS(riRjD) 

KOBJsKOBJii 

IF  (ORJB.r,E.DABFUN,OR,NFEAS,GT,0)  KOBJ  =  0 


RELATIVE  CHANGE  IN  OBJECTIVE 


IF  (ARS(0hji ) .GT.l .0E-10)  OB J0  =  08 JO/ A8S ( 08 J  1 ) 

AB0RJl=,5*(ABS(Afi08J)+ABS(0BJ0)) 

A808JrABS^0BJO) 

lOBJ=IOBJti 

IF  (NVC.Gt.O.OR.OBJD.GE.DELFUN)  I08J=0 

IF  (lOBJ.r,E.ITRM'OR«KOBJ.GE.ITRM)  GO  TO  790 

0BJt=OBJ 

REOncF  CT  IF  OBJECTIVE  FUNCTION  IS  CHANGING  SLOWLT 


IF  (IO8J.1  T.l .OR.NAC.EQ.O)  GO  TO  £70 
CT=OCT*CT 

CTL=CTL*OrTL 

IF(ABS(CTulT,CTMIN)  CT  =  -CTMIN 
IF(ABS(CTJ').LT.CTLMIN)  CTL=-CTL*IN 


CHECK  FOR  UNBOUNDED  SOLUTION 


STOP  IF  08j  IS  LESS  THAN  -1.0Et4G. 

IF  (0BJ.Gt.-1 ,OE+ao)  GO  TO  270 

WRITE  (6,980) 

CONTINUE 

IF  (NAC.Gf.n3)  WRITE  (6,1500) 


****************   FINAL  FUNCTION  INFORMATION   ******************** 


IF  (NSCAL'.FO.O)  GO  TO  820 

UN-SCALE  THE  DESIGN  VARIABLES, 

DO  810  I=i,NOV 

XI=SC*L(I> 

IF  (NSIOE.EQ.O)  GO  TU  81 0 

VLB(I)=XI.vlB(I ) 

VUB(I)  =  XI*vi|H(I  ) 

X(I)=XI*X(I) 


PRINT  FINAL  RESULTS 
IF  (  IPRINt.eQ.0,OR,nac.GE,N3)  GO  TO  940 


6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
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830 


840 
C 


850 
860 

870 


880 
690 


900 


WRITE 
WRITE 
WRITE 
00  83 
MlsMI 
WRITfc 
IF  (N 
WRITE 
DO  8a 
MlsMI 
WRITE 
DETER 
NAC  =  0 
NVC  =  0 
DO  86 
CTA  =  C 
IF  (I 
GI=G( 
IF  (G 
IF  (G 
IF  (G 
NAC  =  N 
IC(NA 
GO  TO 
NVC=N 
MSI  (N 
CONTI 
WRI  TE 
IF  (N 
WRITE 
WRITE 
WRITE 
IF  (N 
WRITF 
WRI  TE 
CONTI 
CONTI 
IF  (N 
DETER 
NAC  =  0 
DO  91 
XI=X( 
XIDsv 
XJ2  =  A 
IF  (X 
GI  =  (X 
IF  (G 
NAC=N 
MS1(N 
XID  =  V 


(6,7S)0) 
(6,1«10)  OBJ 
(6, tafeO) 
0  I=?,nDv,6 

NOCNnv. 1*5) 

(d.lOlO)  I, (X(J), JsI,Ml  ) 
CON,fo#0)  GO  TO  890 

(6,iu*0) 
0  Isi,NCON,o 
NO(Nrr)N,  I  +  5) 

(6»  iOt °)  1/  (GCJ) ,J=I,mi ) 
MINE  whICH  CONSTRAINTS  ARE  ACTIVE  AND  PRINT. 


0  I 

TAM 

set 
I) 

I.G 
I.L 
I.L 

AC* 
C)  = 

86 
VC* 
VC) 
NUE 

(6 
AC. 

(6 

(6 

(6 

VC. 

(<> 
(6 
NUE 
NUE 
SID 
MIN 


=T,nCon 

Il.GT.O)  CTA=CT8M 

T'CTA)  GO  TO  850 

T  CT.ANO.ISC(I).EfJ.O)  GO  TO  860 

T'cTL. AND.ISC(I) ,GT,0)  GO  TO  860 

1  * 

I 

0 

1 

=  T 

M0601  NAC 

Eo.O)  GO  TO  870 

,  in70) 

,?<190)  (IC(J),  J=1,NAC) 

,7o«0)  *jvc 

Erj.n)  GO  TO  880 

M170) 

,?«90]  (MSl(J),Jsl,NVC) 


E' FO.O)  GO  TO  9?o 

E'wHiCH  SIDE  CONSTRAINTS  aRE  ACTIVE  AND  PRINT. 


0  1=1, NOV 

T) 

L8(I 

RS(X 

12.  L 

ID-X 

I.LT 

AC*1 

AC)  = 

UBU, 


) 
roi 

T.l  .1  x  1  2=1  . 
j)/X|2 

.-1  .OE-6)  GO  TO  900 


I 


6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
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X12sabS(Xto)  7010 

IF  (X12.Lt. 1 . )  Xl2sl,  7020 

GIs(XI-XIn)/Xi2  7030 

IF  (GI.LT',.1  .0E-6)  GO  TO  910  70*40 

NAC=NAC*l"  7050 

MS1(NAC)=T  7060 

910    CONTINUE  7070 

WRITE  (6, ToQOl  NAC  7080 

IF  (NAC,  En.  0)  GO  TO  <»20  7090 

WRITE  (6#iiOO)  7100 

WRITE  (6,iu90)  (MSI (J),J=1,NAC)  7110 

920    CONTINUE  7120 

WRITE  (b,  i"  i  SO  )  7130 

IF  (ITER.fiF.ITMAX)  WRITE  (6,1160)  71*40 

IF  (NFEAS'^E.lO)  wRITF  (6,1170)  7150 

IF  (IOHJ.re.ITHM)  WRITE  (6,1190)  ITRm  7160 

IF  (KOBJ.r,F.lTf<^)  WRITE  (6,1200)  ITRM  7170 

WRITE  (6,j2l0)  ITER  716-0 

WRITE  (6,is?0)  NCAL(l)  7190 

IF  (NCON.kt.O)  WRITE  (6,1530)  NCAL(l)  7200 

IF  (NFDG.me.O)  wRITF  (6»15*40)  NCAL(2)  7210 

IF  (NCON.GT.O, AND.NF0G.EQ.2)  WRITE  (6,1550)  NCAL(2)  7220 

C ; ... 72  3  0 

C                     RE-SET  BASIC  PARAMETERS  TO  INPUT  VALUES  72*40 

C      1.. ........ . . — 7  250 

9*40    ITRM=IDM1  7260 

lTMAx=IOMp  7270 

ICN0IR=I0m3  7260 

OELFUNrOM,"  7290 

DA8FUN=0M?  7300 

CTsOM3  7310 

CTMlNsOMa  7320 

CTl=DM5  7330 

CTLMINsDM*  73*10 

THETA=0M7  7350 

PHI=OM«  7360 

FDCH=0M9  7370 

F0CHM=0Min  7380 

IGOTO=0  7390 

950    CONTINUE  7*400 

IF  (NSCAL'.EG.O.OR.IGOTO.EO.O)  RETURN  7ai0 

C      UN-SCALE  VARIABLES,  7*120 

00  9feo  I  =  ^,NDv  7*430 

C(I)=X(I)  70*40 

960    X(I)»X(I)«sC*L(I)  7*450 

RETURN  7*460 

c  ---—..-;. .— ............     7a  7  0 

C                                                                                       FORMATS  7080 
C                 .........;........ ...................................... ..........              7*490 

C  7500 
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970 

980 

990 
1000 
1010 
1020 

1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 

1110 

1120 

1130 

1140 


1150 
1  160 
1170 

1190 

1200 

1210 
1220 
1230 


12U0 
1250 


FORM 
1  OBJ 
2HNSI 

FORM 

U.OE 
2IS  T 

FORM 
FORM 
FORM 
FORM 

1IN0I 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 

HJS  I 
FORM 

12X,1 
FORM 

1SET 
FORM 

ID  = 

20R  I 

FORM 

II)  = 

20R  1 

FORM 
FORM 
FORM 

1I8IE 
FORM 

11TER 

FORM 

1ITER 

FORM 

FORM 

FORM 
1M  I 
2,15X 
3ZATI 
<*TER, 
5ERSI 

FORM 
1  PAR 

FORM 


AT  (/> 

ECTIVp 
DE  =, 
AT  (// 
♦40/by 
ERMINi 
AT  (5y 
AT  (5y 
AT  (3y 
AT  (/^ 
CATES 
AT  (3* 


AT 
AT 
AT 
AT 
AT 
AT 
AT 


(5y 

(5y 


NOICAT 
AT  (/S 
6HPR0p 
AT  (/) 

X(I)=V 
AT  {// 

»E12.a 

AT  (// 

,  E  1  2  .  /) 

=  rI5-, 

AT  (/e; 
AT  (lo 

AT  (In 

OESIn 
AT  (In 
ATIONs 
AT  (lo 
AT  I  ON S 
AT  (/S 
AT  (/<; 
AT  (Ih 
N,20Xt 
, IH*/, 
0N,9X ( 

MOFF^ 
ON  I  I 
AT  (/> 
AMETEd 
AT  (/s 

NFDG/ 


/SX,72HA  COMPLETELY  UNCONSTRAINED  FUNCTION  WITH  A  LINEAR 
IS  SPECIFIEO//10X,8hlInO«J  = , 15/ 1  OX , 8HNC0N    =,I5/10X,3 
I5//5X,35HC0NTROL  RETUHnEO  TO  CALLING  PROGRAM) 
/«5^,56HC0NMIN  HAS  ACHIEVED  A  SOLUTION  OF  OttJ  LESS  THAN  - 
,32hS0LUTI0N  AppEARS  TOABe  UNB0UN[)ED/5X  ,  26HGPT  I  m  I  ZAT  I  ON 
TED) 

, 17HC0NSTRAINT  NUMBER/15) 
,?7HSIDE  CONSTRAINT  ON  VARIABLE, 15) 
,I5,1H)»2X*6E13,5) 

X.35HLINEAW  CONSTRAINT  IDENTIFIERS  ( I SC ) /5* , 36HN0N-ZER0 
LINEAR  CONSTRAINT) 
,15, 1H),2X, 1SI5) 

X,26HALL  CONSTRAINTS  ARE  LINEAR) 
X.30HALL  CONSTRAINTS  ARp  NON-LINEAR) 
X,9HTHER£  ARE,I5,19H  ACTIVE  CONSTRAINTS) 
,?2hc0nSTRAinT  NUMh£RS  ARE) 

X,9HTHEPF.  ARE, 15,21*  VIOLATED  CONSTRAINTS) 
X,9hTHFR£  ARE,i5,2aH  ACTIVE  SIDE  CONSTRAINTS) 
,a3HDEClST0N  VARIABLES  aT  LOWER  OR  UPPER  80UNOS,30H  (MIN 
ES  LOWER  BOUND)) 

X,2?H0NF-0IMENSI0NAL  SEAHCH/5X,  15HINITUL  SLOPE  s,E12.4, 
OSEn  alpha  =,Ei2.a) 

/<5X,35H«  *  CONmIn  DETECTS  VLB  (I )  .  G  T  ,  VUB  (  I )  /5X  ,  57hF  I  X  IS 
LB(I)=VU8(I)  s  .b«(VLB(i)*Vi)B(i)  FOR  I  s,i5) 
/S*,41H*  *  CONMIN  DETECTS  INITIAL  X ( I ) . L T , VLB ( I ) /5X , 6Hx ( 
,2X,BHVLB(I)  =,E12.4/5X,35hX(I)  IS  SET  EOUAL  TO  VLB(I)  F 

/5X,aiH»  *  CONMIN  DETECTS  INITIAL  X  (  I  )  ,  GT  .  V'Jb  (  I  ) /5X  ,  6HX  ( 
#2X,8HVUB(I)  =, El2,a/5X,35HX(I)  IS  SET  EQUAL  TO  VUB(I)  F 


X,2lH 
X,  17H 
X.62H 

N) 
X.«3H 

) 

X,«3H 

) 

X,2?H 
X,2BH 

1  ./// 
1H*/1 
2X/  IH 

1  H*/l 
TT  FI 
J 

//5x 

S) 

X.60H 

81*" 


TERMINATION  CRITERION 
HER  EOUALS  ITMAX) 
TEN  CUNSECOTIVE  ITE^A 

ABS(1-0BJ(I-1 )/08J(I) 

ABS(OBJ( I )-OBJ( 1-1 ) ) 


IPRINT   NOV 
5X, 12HLINQBJ 


ITMAX 
ITRM,5X 


) 

TIONS  FAILED  TO  PRODUCE  A  FEAS 
)  LESS  THAN  DFLFUN  F0R,I3,llH 
LESS  THAN  DA8FUN  FUR,I3#11H 

,15) 

BETA  =,EU.5) 
,S1X,1H«/12X,  1H*,20X,  UHC  0  N 
*,l5x,2lH  FORTRAN  PROGRAM  FOR 
33HC0NSTRAINEO  FUNCTION  MINIMI 
*,2X,«8HNASA/AMES  KESEARCH  CEN 
X,lH*,5lX,lH*/12X,lH*,l3X,25HV 
, 1H*,51X, 1H*/12X,27(2H*  )) 
ON  MJNImIZaT I0N//5X, 18HC0NTR0L 

NCON     NSIDE   ICNOIR    NSC 
,2HN1,6X,2hN2,6X,2hn3,6X,2HN4, 


7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
79«0 
7990 
8000 
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1260 
1270 

I2a0 
1290 
1300 

1310 
1320 

133° 
1300 
1350 
1360 
1370 
1380 
1390 
1000 
1<U0 

1020 
10  3.0 
1040 
1050 
1U60 
1070 
1080 
1090 
1500 


1510 
1520 
1530 
1500 
1550 


26X,2 

FORM 

FORM 

1//9X 

FORM 
FORM 
FORM 

101  P 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 

1) 

FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
FORM 
IDS  N 
2IS  I 
3  TO 
FORM 
FORM 
FORM 
FORM 
FORM 

1MES) 
END 


HN5/8T 
AT  (/o 
AT  (/o 
,5HTHjr 
AT  (/^ 
AT  (/<; 
AT  (/) 

ARAMEf 
AT  (/s 
AT 

AT 
AT 
AT 
AT 
AT 

AT 
AT 
AT 
AT 


(/s 

(/5 
CIh 

(/s 

(/<> 
(// 


81 

X.OHF 
X,2HC 
TA,  1  1 

x,<joh 

X.OOH 
//5X, 
E"S) 
X,2lH 

//*>*, 

X.'-IHC 
X.25H 
X,  15H 
X.04H 

) 

X.37H 

X,27H 
X,  18H 
//5x, 


dch,  12 
T, lax, 

X, 3MPH 
LU*£R 
UPPER 
35HUNC 

SCALIN 
22HBEG 
T  s,£l 
NE"  SC 
GRAUIE 
GRAOIE 

PUSH-0 
SE*»CH 
CALCUL 

6HITER 


X,5HFDCHM/3X,2Elu,5) 

5HCTMIN, 1 1X,5HCTL, 13X,6HCTLMlN/lX,a(2X,E10.5) 

I/ljX,6HOELFl|N,lox,6HDABFuN/iX,a(2X,El0.5)) 

BOUNDS  UN  DECISION  VARIABLES  (VLB)) 

ROUNDS  ON  DECISION  VARIABLES  (VUB)) 

ONSTRAINEO  FUNCTION  MINIMIZATI0N//5X, 18HC0NTR 

G  VECTOR  (SCAD) 

IN  ITERATION  NUMB£R,I5) 

a.5,5X,5HCTL  =»  E  1  a.  5>  5X  ,  5HPHI  s,EU.5) 

ALING  VECTOR  (SCAL)) 

NT  OF  OBJ) 

NTS  OF  ACTIVE  AND  VIOLATED  CONSTRAINTS) 

FF  FACTORS,  (THETA(I),  1=1, NAC)) 

DIRECTION  (S-VECTOR)) 
ATED  ALPHA  =,E10,5) 

=  ,  I5,5X,5H0RJ  =,E10,5,5X, 16HN0  CHANGE  IN  OBJ 


(/ 
(/ 

(/ 
(/ 
(/ 
(3 
(/ 
(5 
(/ 
1./ 


NSUFF 
MAIN 
AT  (  1 


AT 
AT 
AT 
AT 


SX.5H 
5X,5H 
///5X 
/S*»2 
SX,29 
Y,7El 
5X.2S 
X,  151 
5X.59 
5X,6(S 
TClEN 
PROGR 

HI,// 

5X,3? 
SX.35 
sx,36 
«;x,oo 


OBJ  = 
OBJ  = 
,6HIT 
8HINI 
HDECI 
3.0) 

HCUNS 

5) 

HTHE 
HOIME 

r/5x, 

AM.  ) 
//OX, 
HOBJE 
HcDNS 

hgRad 
hgrad 


,E15.6,5X, 16HN0  CHANGE  ON  OflJ) 

,E15.6) 

FR  =, I5,5X,5HORJ  =,E10.5) 

TIAL  FUNCTION  T.NFURMATI0N//5X,5H0BJ  =,El5.6) 

SION  VARIABLES  (X-VECTOR)) 

TRAINT  VALUES  (G-VECTOR)) 

NUMBER  OF  ACTIVE  AND  VIOLATED  CONSTRAINTS  EXCEE 
NSTUNpD  SIZE  OF  MATRICES  A  AND  B  AND  VECTOR  IC 
61H0PTIMIZAT ion  TERMINATED  ANq  CONTROL  RETURNED 

30HFINAL  OPTIMIZATION  INFORMATION) 
CTIVE  FUNCTION  WAS  E V AL UA TE D , 8X , I  5 , 2X , SHT I MES ) 
TRAINT  FUNCTIONS  *£*£  E v *LU A T£o i  I  1  ° ' 2x > ^HT  I  HES  ) 
TENT  OF  OBJECTIVE  *AS  C ALCULA TED ,  I  9 t 2X , 5HT  I  MES  ) 
ILNTS  OF  CONSTRAINTS  *ERE  C ALCUL A  TED , I  5 , 2 X , 5H f I 


8010 
8020 
8030 
6040 
8050 
8060 
6070 
8080 
8090 
8100 
81  10 
8120 
8130 
8100 
8150 
81o0 
8170 
6160 
8190 
8200 
8210 
8220 
8230 
8200 
8250 
8260 
8270 
8260 
8290 
8300 
6310 
8320 
8330 
8  30  0 
8350 
8360 
8370 
8380 
8390 
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10 


20 


C 
C 
C 

30 
40 


SUBfOUTINF  cNMN01  (JGOTO,X,DF,G» ISC/  IC  /  A  ,  G  1  ,  VLB/  VUB,  SC  AL  /  C  ,  NC  AL/  DX 
1/DXl  ,FI,x},  m,Nl  ,N2,N3,N4) 

COMMON  /CMMNi/  IP«INT,SOV, ITMAX,NC0N,NSIDE, ICNDlR,NSCAL,NFDG,FDCH, 
lFOCHM,cT/rTMlN,CTL,CTLMlN, THfc T A , PH I , N *c / DELFUN , 0 AflFUN, L I  NOB J , ITRM, 
2ITEP,INF0r;,TGOT0,  Info, OBJ 

DIMENSION  x  f  M 1 ) ,DF(NH ,G(N2) , ISC(N2) , IC(N3),A(N3,N1),G1(N2), VL6(N1 
l),VUB(N»),SCAL(Nl),NCAu(2),C(Na) 

ROUTINE  To  CALCULATE  GRADIENT  INFORMATION  BY  FINITE  DIFFERENCE. 

BY  G.  N.  VANOFRPLAATS  JUNE/  1<?72, 

NASA. AMES  RESEARCH  CENTER,   MOFFETT  FIELD,  CALIF, 

IF  (JGOTO'  fo.  1  )  CO  TO  10 

IF  (JG0T0'e0.2)  GO  TU  70 

INFOG=0 

lNF=INFO 

NAC  =  0 

IF  (LINOS.;. nE.O.ano. ITER. GT, I)  GO  TO  10 

GRAOIENT  OF  LINEAR  OBJECTIVE 

IF  (NFDG.ro. 1)  JGOTOsi 

IF  (NFDG.pQ.l)  RETURN 

CONTINUE 

JGOTOsO 

IF  (NFDG.FO.l.ANO.NCON.EO.O)  RETURN 

IF  (NCON.pt^O)  GO  TO  UO 

*  *  *  OfTFRmINE  WHICH  CONSTRAINTS  ARE  ACTIVE  OR  VIOLATED  *  *  * 

DO  20  I=1#NC0N 

IF  (G(I).iT.CT)  00  TO  20 

IF  (ISC(I).GT.O.AN[j.G(I).LT.CTL)  GO  TO  ?0 

NAC=NAC*1 

IF  (NAC.Gp.N3)  RETURN 

IC(NAC)=I 

CONTINUE 

IF  (NFDG.FQ. 1  .AND.NAC.Ea.O)  RETURN 

IF  (  (LINOqj#GT,0.ANO. ITER, GT. 1 ) .AND, NAC.EO.O)  RETURN 

STORE  VALUES  OF  CONSTRAINTS  IN  Gl 

DO  30  I=1.NC0N 
GlCljsG(I) 

CONTINUE 

JGOTo=0 

IF  (NAC.Era.O.AND.NFDG.EO.l )  RETURN 

CALCULATE  GRADIENTS 

INF0G=1 
iNFOsl 


10 
20 
30 
40 
SO 
60 
70 

eo 

90 
100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
3^0 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
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50 


60 


70 


80 
90 


C 

C 
C 

100 


FIsO 
111  = 
111  = 

xi  =  x 

DXsF 
OX  =  A 
FDCH 
IF  ( 
IF  ( 
X1  =  X 
IF  ( 
IF  ( 
IF  ( 
DX1  = 
X(II 
NCAL 


1*1 
II) 

H*X 

(OX 

FOC 

CAL 

.IT 

OX 

IDE 

.IT 

,GT 

/OX 

=  XI 

)=N 


T 
1 

' NF.O) 


FDCH1=F0CHM/SCAL(III) 


.FOCH1)  OX=FOCHl 

'  FQ.O)  GO  TO  60 

'VLB(III) .ANO.OX.LT.O.)  Xl=XT-OX 

.VUb(III) .  AND.DX.GT.O, )  Xl=XI-OX 

♦  nx 
fALd  )  +  l 


FUNCTION  EVALUATION 


JGOTO=2 

RETURN 

CONTINUE 

x(im  =  xi 

IF  (NFDG.fo.O)  DF(III)sDXl*(OBJ-FI) 
IF  (NAC.Eo.O)  GO  TO  90 


0fTEHmInE  GRADIENT  C0M^ONpNTS  OF  ACTIVE  CONSTRAINTS 


DO  80  J=1.nAC 
IlsIC(J) 

A(J,III)=nxi*(G(ll )-6i(Ii)) 

CONTINUE 

IF  (III. It. NOV)  GO  TO  50 

INFOG=0 

iNFOsINF 

JGOTO=0 

OBJ=FI 

IF  (NCON.po.O)  RETURN 


Store  current  constraint  values  back  in  g-vector 


00  100  I=?,nCON 
G(I)sG1(Ii 

RETURN 

end 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
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SUBROUTINE  CNMN02 


SEPT.  77 


10 
C 
C 
C 


20 

30 

C 
C 
C 

40 

50 
C 
C 
C 


SUKROutINf  cN*N02  (MCALC, SLOPE, OFtOFI, OF, 5,Ni) 

COMMON  /CnmnI/  IPRlNr,NDV,ITMAX,NCON,NSIDE,ICNOlR,MSCAL,NFDG,FDCH, 
lF0CHM,cT,rTMlN,CTL,CTLMlN,THtTA#PHl,NAC#0ELFUN,O*8FUN,LlNOBJ, IT  KM, 
2  ITER,  INF  Or.,  I  GO  TO,  INFO,  OBJ 

DIMENSION  r>F(Nl  )  ,S(N1  ) 

Routine  Tn  determine  conjugate  direction  vector  or  direction 

OF  STEEPEST  npScENT  FOR  UNr.  OMS  T  R  a  j  Nf  q  FUNCTION  mini  m  I  ZaT  ION. 
BY  G.  N.  VANOFRpLAATS  APRIL,  1972. 

NASA-AMES  RESEARCH  CENTER,  mqFFETT  FIELD,  CALIF. 

ncalc  =  Calculation  control. 

ncalc  s  0,     s  =  steepest  descent. 

ncalc  =1,     s  s  conjugate  direction, 
conjugate  drrection  is  found  by  ft. e tch£r-ree ve s  algorithm. 

CALCULATE  NORM  OF  GRADIENT  VECTOR 

OFTDFsO. 

00  10  1=1. NOV 

DFI=DF(  I) 

DFTDFsOFTr>F»DFl*DFI 


*********, 


FINO  DIRECTION  S 


********** 


IF  (NCALC' NE.l )  GO  TO  30 

IF  (DFTDF i.LT, 1 .UE-20)  GO  TO  30 


FINO  FLETcHEW-hEEVES  CONJUGATE  DIRECTION 


BETAsDFTDf/oFTOFI 

SLOPE=0. 

00  20  1=1, NOV 

DFIsDF(I) 

Sl=8ETA*S'f  n-DFI 

SLOPE=SLOoe*SI*OFI 

S(I)=SI 

GO  TO  50 

CONTINUE 

NCALC=0 


CALCULATE  DIRECTION  OF  STEEPEST  DESCENT 


DO  tO    1=1, NDV 
S(l)s-OF(T, 

SLOPE=-DFTDF 
CONTINUE 


NORMALIZE  S  TO  MAX  ABS  VALUE  OF  UNITY 


SlrO, 

DO  60  I=1,N0V 


10 
20 

30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
1«0 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
2oO 
270 
230 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
4b0 
470 
480 
490 
500 
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SUBRQUTlNp  CN"N02 


SEPT.  77 


60 


70 


S2  = 

IF 

CON 

IF 

Sl  = 

OFT 

DO 

S(I 

SLO 

RET 

End 


abs 

(S2 

Tin 
(SI 

>./ 

DM 
70 
)=S 
PF  = 
URN 


(S(h) 
.GT'.si)  SI 

UE 

.IT* j.OE-20) 

SI 

=OFtoF*S1 

1  =  1  , NOV 

l*Sf I) 

si*«;LnPE 


S2 


Slsl.oE-20 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
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SUBROUTINp  cNMNOJ 


C 
C 
C 
10 


20 


C 
C 
C 
30 


00 


SijBK 

COMM 

1F0CH 

2ITE« 

COMM 

2aLP, 
•  0S(9 
*JGOT 
DIME 
ROUT 
MINI 
CUBT 
BY  G 
NASA 
ALP 
SLOP 
SLOP 
OBJ 
ZRO  = 
IF  ( 
GO  T 


OtlTIN 
ON  /C 
P*»CT» 

,INFO 
ON  ./C 
FFF,  A 
),RSP 
0,ISP 
NSION 
INE  T 
MTZAT 
C  INT 
.  N. 
-AMES 

=  PRO 
E  s  I 
F  MUS 

=  INI 

0. 

JGOTO 
0  (50 


F    CNM 
NMNl  / 

r;TMlN 
R,TGQ 

QNSAV 

T,  a2, 

ACF,I 

ACF(? 

X(N1 

r>  sol 

TON  U 
pRPOL 
VANOE 
RFSF 
POSEO 
M  I  T  I  A 

T  *E 

TIAl 


HPLAATS 
ARCH  CfcNTER, 

*uve  parameter, 
l  function  slope 
negative, 
function  value. 


'.EQ.Q)     GO  TO  10 

,80, t 10, 140, 180,220,270),  JGOTO 


INITIAL  INFORMATION   (ALPHArO) 


IF  ( 

ALP  = 

RETU 
cont 

IF  ( 
FFF  = 
APl  = 
AlsO 
Fl=0 
A?;A 
A3  =  0 
F3  =  0 
AP  =  A 
KOUN 


SLOPE'.LT.O.  )  GO  TO  20 

0. 

RN 

INUE 

[PRINT. GT.aj  WRITE  (6,360) 

OBJ 

0. 


BJ 
LP 


2 
T  =  0 


MOVE  A  DISTANCE  AP*S  AND  UPDATE  FUNCTION  VALUE 

CONTINUE 
KOUNTsKOUnT+l 
DO  HO     1=1, NOV 

X(I)>X(I)+AP*S<I] 

IF  (IPRlNr.GT.a)  WHITE  (6,370)  AP 

IF  (IPRINTtr,T.a)  WRITE  (6,380)  (  X  ( 1 ) ,  I  =  1 ,  NOV  ) 

NCAL(1  )=NrAL(l  )♦! 

JGOTOxl 

RETURN 


10 

20 
30 
40 
50 
00 
70 
80 
90 
100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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SUBROUTINf  CNMN03 


SEPT.  77 


50 


60 


70 


80 


90 
C 
C 
C 


CONTINUE 

F2=0BJ 

IF  (IPRINJ.GT.U) 

IF  (F2.LT'fi)  GO 


WRITE  (6, 
TO  120 


3<?0)  F2 


CHECK  FOR  ILL-CONDITIONING 


IF  ( 
FF  =  2 
IF  ( 
FF=5 
IF  ( 
*2=. 
AP  =  - 
ALP  = 
GO  T 
F3  =  F 
A3  =  A 
A2=. 


GO 


UNT.RT.S)  GO 

AHSfFl) 

.LT' ff) 

ABSfFl) 

.LT>F) 

A2 


30 


TO  bO 


TO  90 
GO  TO  60 


A2 


UPOATE  DESIGN  VECTOR  AND  FUNCTION  VALUE 


AP=A2-ALP 

ALP=A2 

DO  70  1=1, NOV 

X(I)=X(I)+AP*S(I) 

IF  (IPRINT#r,T.U)  white  (6 

IF  (iPRINf.GT.a)  »HITF  (6 

NCAL(I  )=NrAL(1)  +  l 

JG0T0=2 

RETURN 

CONTINUE 

F2=OBJ 

IF  (IPRINf.GT.a J 

PROCEED  Tn  C^BIC 

60  TO  160 

CONTINUE 


370) 
380) 


*2 
(X(I),I: 


1  ,NDV) 


WRITE  (6,390) 
INTLRPOLAT ION, 


F2 


*********, 


2-POINT  QUADRATIC  INTERPOLATION 


********** 


Jjsl 
Ilsl 

CALL  CNMN0a  (II, APP,ZRO,Al ,F1 , SLOPE, A2,F2,ZRO,ZPO,ZRO,ZRU) 

IF  (aPP,Lt.ZrO.OK.ARP,GT, A2)  GO  Tn  120 

F3  =  F2 

A3  =  A2 

A2=APP 

JJ  =  0 

UPDATE  DESIGN  VECTOR  AND  FUNCTION  VALUE 


510 
520 
530 
540 
550 
5e0 
570 
580 
590 
600 
61  J 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
9b0 
960 
970 
980 
990 
1000 
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SUBROUTINE  CNMN03 


SEPT,  77 


100 


110 


120 
C 
C 
C 


130 


140 


150 

160 
C 
C 
C 


170 


APsA2-ALP 

ALP=A2 

DO  100  I=J,nDv 

X(I)=X(I)tAP»S(I) 

IF  (IPRINt.gT.4)  *»«ITE  (6,370) 

IF  (IPHINT.GT,a)  WHUF  (6,380) 

NCAL(l)=NpAL(l)*l 

JG0T0=3 

RETURN 

CONTINUE 

F2=0BJ 

IF  (IPRTNt.GT.4)  WRITE  (6,390)  F2 

GO  TO  150 

A3s2.*A2 


A2 
(X(I),I=1,NDV) 


UPDATE  DESIGN  VECTOR  AND  FUNCTION  VALUE 


ApsAJ-ALP 

ALPSA3 

DO  130  1=1, NOV 

X(I)  =  X(I  );aP*S(I) 

IF  (IPRINr.GT.a)  WRITE 

IF  (IPRINT.GT.U)  WRITE 

NCAL(1 )=Nf4L(l )*1 

JGOTosa 

RETURN 

CONTINUE 

F3=OBJ 

IF  (IPKINT.GT.4) 

CONT INUE 

IF  (F3.IT>?)  GO 

CONTINUE 


(6,370) 
(6,380) 


A3 

(X(I  ), 1  =  1 ,NDV) 


WRITE  (6,390)  F3 
TO  190 


******«#« 


3-POINT  CUBIC  iNTtRPOLATION 


********** 


11*3 

CALL  CNMN0U  (I  I, APP,ZRO, Al ,F1 ,SLOPE, A2,F2, A3,F3,ZWO,ZRU) 
IF  (APP.LT.ZRn,OR,APP,r,T,A3)  GO  TO  190 

UPDATE  DESIGN  VECTOR  AND  FUNCTION  VALUE. 

API  SAPP 

AP=App-ALp 

ALP=APP 

DO  170  I=i, NOV 

*(1  )=X(I  )tiP*S( I) 

IF  (IPRINt.gT.u)  writf  (6,370)  alp 

IF  (IPRINTp(;T,a)  WRITE  (6,380)  (  X  ( I )  ,  1  =  1  ,  NOV  ) 

NCAL(1 )=NrAL(l )♦! 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1  120 
1130 

I  140 
1150 
t  160 

II  70 
1180 
1  190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
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SUBROUTINE  CNMN03 


SEPT,  77 


180 

C 
C 
C 


190 

C 

C 

C 

200 


210 


220 


JGOTo=5 

RETURN 

CONTINUE 

IF  (IPRINf.RT.a) 


WRITE  (6,390)  OBJ 


CHECK  CONVERGENCE 


AAs 
AB2 
AR3 
AB  = 
IF 
IF 
A8  = 
IF 
AUz 
F«  = 
A3  = 
F3  = 
IF 
A3  = 
F3  = 
A2  = 
F2  = 
GO 
CON 


-APP>*2 
8S(F?) 

RS(OrJ) 

2 

B3.Gf.A8)  AB=AB3 

8.LT'tI.0E-15)  Arf=l,oE-15 

BZ-Ar^/aB 

BS(AR).LT. 1 .0E-15. AND.ABS(AA) ,LT. .001 )  GO  TO  330 


3.GT'<A?)  GO  TO  230 


P 
J 
230 

NUE 


*********.» 


a-ROINT  CUBIC  INTERPOLATION 


********** 


CONTI 
Aas2. 
UPOAT 
AP  =  A« 
ALP  =  A 
DO  21 
X(I)  = 
IF  (I 
IF  (I 
NCAL( 
JGOTf) 
RETUR 
CONTI 
FasOB 
IF  (I 
IF  (F 
A1=A? 
Fl=F2 
A?xA3 

F2  =  F3 
A3*Aa 


NUE 
«A3 
E  0 
-AL 
a 
o  I 

*(I 
PRI 
PRI 

1)  = 
=  6 
N 

NUE 

J 

PHI 

a .  G 


ESIGN  VECTOR  AND  FUNCTION  VALUE. 
P 


sj ,NOV 
)^AP»S( I ) 

N  t  .  r,  t  .  a )  w  R  I  T  E 
NT.GT.4)  WHITE 
NrAL(  1  )♦! 


(6,370) 
(6,380) 


ALP 
<*(I),I 


1 ,N0V) 


MJ.GT.U)  WRITE  (6,390)  Fa 
T>-5)  GO  TO  230 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1  740 
1750 
1760 
1  770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
I960 
1970 
1980 
1990 
2000 


157 


SUBROUTINF  CNMN03 


SEPT.  77 


230 


240 

250 
C 
C 
C 


260 


270 

280 
C 
C 
C 


290 


300 


310 
C 
C 
C 


F3=Fa 

60  TO  200 

CONTINUE 

11=4 

Call  cnmnou  (ii,app,ai  ,ai,fi  , slope,  a2,f2,*3,f3, *<*, Fa) 

IF  (APP-.GT.Al)  go  TO  250 

APrA J-ALP 

*LP=A1 

OBJsFl 

00  2ao  ts^.NOv 

X(I)=X(I)+AP*S(T) 
GO  TO  280 
CONTINUE 

UPDATE  DESIGN  VECTOR  AND  FUNCTION  VALUE 


AP=APP-ALp 

A|_P  =  APP 

00  260  1=7, NOV 

X(I)sX(I)>AP*S(I) 

IF  (IPKINt.gT.U)  "RITE 

IF  (IPPINT4r,T.a)  write 

NCAL(1  )=N(-al(1  )>1 

JG0T0=7 

RETURN 

CONTINUE 

IF  (IPRINt.gT.U)  WRITE 

CONTINUE 


(6i 

(6, 


370) 
580) 


ALP 
(X(I),I=1,NUV) 


(6,390)  OBJ 


CHECK  FOR  ILL-CONDI  HONING 


IF  ( 
IF  ( 
APsA 
ALP  = 
OBJ  = 
GO  T 
CONT 
IF  ( 
OBJ  = 
APsA 
ALP  = 
GO  T 
OBJ= 
APsA 
ALP  = 
CONT 


J.GT.F2.0R.08J.GT.F3)  GO  TO  2<>0 

J.Lf.FI)  GO  TO  330 

ALP 


310 

ME 

.LT'^3)  GO  TO  300 

ALP 

310 

ALP 

UE 


UPDATE  DESIGN  VFCTOR 


2010 
2020 
2030 
2040 
2050 
20&0 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2U0 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2a20 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
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SUBRoUTlNp  cNMN03 


SEPT.  77 


20 
30 


suo 

150 


60 

70 
80 
90 


DO  320  I=T,N0V 
X(I)=X(IUap«S(I) 

CONTINUE 


CHECK  FOR  MDLTIPLF  MINIM* 


IF  (OBJ.Lf.FFF)  CO  TO  350 

initial  Function  is  minimum, 

DO  3«0  I  =  i",NDv 
X(I)sX(I);aLP*SCI) 

ALP=0. 

OBJ=FFF 

CONTINUE 

JGOTO=0 

RETURN 


FORMATS 


FORMAT  (/>///5X,60H*  • 
IRMAT  JON  *  *  * ) 
FORMAT  (/s;x,7HALPHA  =  ,  E  1  a  ,  5/5*  ,  8HX-  VEC  TOR  ) 
FORMAT  (5x,6tl3.5) 
FORMAT  (/SX,SH0BJ  =,L14.5) 
END 


UNCONSTRAINED  ONE -D I  MENS  I  ON AL  SEARCH  INFO 


2510 
2520 
2530 
25«0 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2C.30 
2bu0 
2650 

26O0 

2670 
2t>60 
2690 
2700 
2710 
2720 
2730 
27U0 
2750 
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subroutine  cnmno4 


SEPT.  77 


10 
C 
C 
C 


20 

C 

C 

C 


SU8R0UTINr  CNMNo<4  (II. XBaR, EPS, X!, Yl , SLOPE, X2,Y2,X3,*3»X4,Y4) 
ROUTINE  To  FlND  FIRST  XBaR.GE.EPS  CORRESPOND  I NG  TO  A  MINIMUM 

Of  a  one-0[mensional  real  function  Br  polynomiel  interpolation. 

By  G,  N,  vAnufRPI_aatS  APRIL,  1972, 

NASA-AMES  RESEARCH  CENTER,   MOFFETT  FIELD,  CALIF. 

II  a  CALCULATION  CONTROL, 

It   ?. POINT  QUADRATIC  INTERPOLATION,  GIVEN  X\,     Yl,  SLOPE, 

Y2  ANO  Y2. 
2:   -^-POINT  QUADRATIC  INTERPOLATION,  GIVEN  Xi,  Yl,  X2,  Y2, 

X5  AND  Y3. 
3:   -^-POINT  CUBIC  INTERPOLATION,  GIVEN  XI,  Yl,  SLOPE,  X2,  Y2, 

Y3  AND  Y3. 
4:   a. POINT  CUBIC  INTERPOLATION,  GIVEN  XJ,  Yi,  X2,  Y2,  X3, 

Y3,  X«  and  Ya, 
EPS  MAY  Be  NEGATIVE. 

if  Required  minimum  on  y  does  not  exits,  or  the  function  is 

ill-conoitioned,  xbah  s  eps-1,0  hill  be  returned  as  an  error 

indicator'. 

if  dfsipeo  interpolation  is  ill-cond i t 1 o^ed ,  a  lower  order 

INTERPOLATION,  cONSISTaNT  with  INPUT  daTa,  WILL  BE  ATTEMPTED, 

AND  IT  WI,L  BE  CHANGED  ACCORDINGLY. 

XBARlrfcPS.i , 

XBARrYBAR," 

X21=X2-X1 

IF  (A8S(X?n  ,LT.  1  .OE-20)  RETURN 

NSLOP=MODf T I,?) 

GO  TO  (10, 20, '10, 50),  II 

CONTINUE 

I  I  =  1  :  2-POINT  QUADRATIC  INTERPOLATION 

11  =  1 
DX  =  X 
IF  ( 
AA=( 
IF  ( 
BB  =  S 
XBAR 
IF  ( 
RETU 
COnT 


l-x? 

ABS(Dy) .LT. 1 .OE-20)  RETURN 
SLOPE;(Yc?-Y  1  )/DX)/DX 
AA.LT'.  j  .OF-201  RETURN 
L0PE-?..AA*X1 

=-.5*RH/AA 

XBAR, i  T.tPS)  XBARsXBaRI 

RN 

INUE 


11=2:  3-POINT  QUADRATIC  I  NTERPOI  A T I  ON 


11=2 

X2l=X2-xi 
X31=X3-X1 
X32=X3-X2 

UO=X2j*xi?»x32 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

loo 

170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


160 


30 


40 
C 
C 
C 


50 
C 

C 

c 


SUBrOUTI^F  CNMN04 

IF  (A8S(Qo).LT.t.0E-20)  RETURN 

AAs(Y1*X3?_y2*X31*Y3*X2I  )/QQ 

IF  (AA.LT'.  i  .OE-20)  GO  TO  30 

8B=(Y2-Yl}/x2l-AA*(XWx2) 

X8AR=-.5*RR/AA 

IF  CXBAR..I  T.EPS)  XBARrXDARl 

RETURN 

CONTINUE 

IF  (NSLOP'.EO.O)  RETURN 

GO  TO  10 

CONTINUE 


SEPT.  77 


11=3:  3-POINT  CUBIC  INTERPOLATION 


11  =  3 
X21  = 
X31  = 
X32  = 

UQ=X 

IF  ( 
XU  = 
ONOM 
IF  ( 
AA=( 
IF  ( 
BUs( 
CC  =  S 
BAC  = 
IF  ( 
8AC  = 
XBAR 
IF  ( 
RETU 
CONT 


X2-X1 

X3-X1 

X3-X2 

2t*X3 

ARS(Q 

X  1  *X  1 

=  X2*X 

AHS(0 

(X31  » 

ABSCA 

(Y2-T 

LOPE- 

8B*BB 

B*C.L 

SORT( 

=  (BAC 

XBAH, 

RN 

INUE 


1*X32 

0)  .LT. 1 .OE-20)  RETURN 


?*x3l 
NO*)  . 
X31  *( 
O.LT 
1  )/*? 
T.*AA 

-3.** 
T.O.  ) 

RR)/ 
I  T.EP 


c 

T.l. OE-20)  RETURN 

1-X1 l*X32-X3*X3*X2l 

.LT  .  1  .OE-20)  GO  TO  20 

(Y2-Yi)-x2WX2i*(Y3-Yl))/(X3i*x21  )  -SLOPE*  X  32)  /DNOM 

T.  1  .OE-20)  GO  TO  20 

?l-SL0PE-AA*(x2*X2  +  xt*X2-2.*XU))/X2t 

A*X1  1-2.*BB*X1 

AAoCC 

)  GO  TO  20 


(3.*AA) 

S)  XBAR=EPS 


II=a:  4-P0INT  CUBIC  INTERPOLATION 


X21=X2-X1 
X3J=X3-X1 
X41=X4-X  1 
X32=X3-X2 

xa2=xa-x2 

XI  1=X1*X 1 
X22=X2*X2 
X33=X3*X3 
xq«sxa*xu 
xn  t=xi  *x^  i 

02=X3i *X2j#x32 

IF  (ABStQ?) .LT. 1 .0E-30)  RETURN 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
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04  = 

05  = 
ONO 
IF 
03  = 

06  = 
AAs 
8B  = 
CC  = 
BAC 
IF 
BAC 
XBA 
IF 
«ET 
CON 
IF 
GO 

End 


x 1 1 1* 

xai  *x 

MsQ2* 
(ABS( 
Y3*X2 
Y4*X2 
(Q?*Q 
(03-Q 
(Y2-Y 

=BB«e 

(ARS( 
=  SORT 
H=(BA 
(XBAR 
URN 
TINUE 
(NSLO 
TO  20 


X32- 
Xu?- 

<?i  *x 

Okjom 
1-Y2 
1-Y? 
6-H3 
1  *  4  A 
l.AA 
«-3. 

(PAC 

C-flB 
.1  T. 


X?22 

"2 

1«U5 
).LT 
*X31 

*x a  i 

*Q5) 

)/Q2 

*(X2 

*  A  A* 

LT.I 

) 

)/(3 

EPS) 


*X3l*X3*X33*X2l 

•  x  u  i  ♦  x  a  *  x  4  « » x  2 1 


.l.OE-30)  GO  TO  60 
+Yl*X32 

♦Yi#x«2 

/0N01 

22-X1  1  l  )  )/x21-8B*(XUX2) 

CC 

.OE-20.nR.BAC,LT,o.)  GO  TO  60 

,*AA) 

X6AK=XHaR1 


P'.FO.l)  GO  TO  40 


1010 
1  0^0 

1030 

1040 

1050 

1060- 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1  160 

1170 

1180 

1  190 

1200 
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10 


SUSROUTlNF  CNMNOb  (NvC,SL0PE,DF,G,IsC,IC,A,s,C,Msi,B,Nl,N2,N3,N4,N 
15) 

COMMON  /CnmnI/  IPPInT,nOV,ITmax,ncON,nSIOE,IC^DIR,nSCAL,nFOG,FOCm, 
lFOCHM,cT,rTMlN,cTL,CTLMlN,THETA#PHl»NAC»OELFUN,OABFUN,LINOBJ»ITRM, 
21TE«,  INF  Or,.  TGOTO,  lNFU,OBJ 

DIMENSION  DF(Nl)>G(N«J),ISC(N2),IC(N3),A(N3/Nl),S(Nl),C(Na),MSl(N5) 
1  »8(N3,N3) 

routine  Tn  solve  oipection  finding  problem  in  modified  method  of 

FEASIBLE  DIRECTIONS. 

BY  G.  N,  VANDERPLAATS  MAY,  1972. 

NASA-AMES  pfSeamch  CENTER,  MQFFETT  FIELD,  CALIF. 

NORM  OF  S  VFCTOR  USED  HERE  IS  s-transpose  TIMES  S.LE.l. 

IF  NVC  =  n  FIND  DIRECTION  BY  ZOUTENDIJK'S  method,   otherwise 

FIND  MODIFIED  DIRECTION. 

***   NORMALIZE  GRADIENTS,  CALCULATE  TheTa'S  AND  DETERMINE  NVC   *** 


N0V1 
NDV2 
NAC1 
NVC  = 
THMA 
CTA  = 
CT1  = 
CTAM 
CT-B  = 
CT2  = 
CTBM 
A  t  =  1 

do  u 

CALC 
NC1  = 
NCJ  = 
IF  C 
Cl=G 
CTD  = 
CTC  = 
IF  ( 
CTC  = 
CTD  = 
IF  ( 
THTs 
GG=1 
IF  ( 
IF  ( 
IF  ( 
IF  ( 
A(I, 


=NDV+i 

=NDV+? 

=NAC+i 

0 

X  =  0. 

ABS(Cn 

l./CTi 

=  A8S(r;TMlN) 

absccti  ) 

J./CTr 

=ABS(rTLMIN) 


0  I 
ULA 
ICC 

1 

NCI 

(NC 

CT1 

CTA 

NCJ 

CTB 

CT2 

CI. 

0. 

.♦C 

NCJ 

NCJ 

THT 
THT 

NOV 


=1 ,NAC 
TE  THETA 

n 

.Lr.NCON)  NCJ=ISC(NCI) 
I) 


.Lp.O)  go  to  10 

M 

GT'>CTC)  NVC=NVC  +  1 

TD*C1 

.Eo.O.OR.Cl.GT.cTc)  THT=THETA*GG*GG 

.Gt.O.aNO.CI.GT.CTC)  THI=ThT-3,«THETa 

.Gt.5".)  Tht=50. 

.Gt.THMAX)  thmax=tht 

1  ):THT 


NORMALIZE  GRADIENTS  OF  CONSTRAINTS 


10 
20 

30 
40 
50 
60 
7  0 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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20 


30 

40 

C 

C 

C 

C 


50 


60 
C 

C 
C 
C 


70 

80 
C 
C 
C 


A(I,NDV2)-t  . 

IF  (NCI.Gt.nCON)  GO  TO  «o 

Al=0. 

DO  20  Jsi.NOV 

CONTINUE 

IF  (Al  .iT  j.OE-20)  Alsl,oE-?0 

A1 sSQRT(AJ) 

A(I,NDV?)=ai 

Alrl  ,/Al 

on   3o  J=i,nov 

A(I,  J)  =  AUA(I,  J) 

CONTINUE 


NORMALIZE  GRADIENT  OF  OBJECTIVE  FUNCTION  AND  STORp  IN  NAC*1 
ROw  OF  * 


A1=0 
DO  5 
A  i  sA 
CONT 
IF  ( 
A1=S 
Aj  =  l 
DO  6 
A(NA 
BUR 
IF  ( 


0  1  = 
1+OF 
INUE 
Al  .L 
ORT( 
./Al 
0  1  = 
CI, I 
D  C 
NVC. 


I.nrv 

(T)**2 

T'.1.0E-20)  Alsl.oE-20 

An 

1  .NOV 
)=A1*OF(I) 

VICTOR. 

Gt.O)  GO  TO  SO 


)UllD  C  FOR  CLASSICAL  METHOO 


Ndb=NAC1 
A(NOB,NOVn  =  l  . 
DO  70  1=1. NOB 
C(I)s-A(I.NnVl) 
GO  TO  110 
CONT INUE 


BUILD  C  FOR  MODIFIED  METHOO 


NOH=NAC 

A(NAC1 ,NDvj )=-PHl 


SCa, p  ThETa's  SO  That  maximum  TheTa  is  unity 


lF(THMAX.r,T. 0.0000  11  ThMAX=1  ,/THMaX 

DO  90  1=1 ,unB 

NCI=IC(I) 

Cl=CTA 


510 
520 
530 
540 
550 
5b0 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
660 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
93C 
940 
950 
9o0 
970 
980 
990 
1000 
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90 


100 

110 

C 

C 

C 


120 

C 

C 

c 


130 
HO 


150 
C 

C 
C 


160 


170 


IF  (ISCCNpT  >,GT,0)  ClrCTB 

A(I,NDVl)sA(I,NOVl)*THMAx 

CONTINUE 

DO  100  1=7. NDR 

C(I)=0.  . 

00  100  J=),NDVl 

t(I)=C(I)4A(I, J)»A(NAC1,  J) 

CONTINUE 


8UIL0  B  MATRIX 


DO  120  I=i, NOR 
DO  120  J  =  T,KlOB 
B(I,J)sO, 

DO    120    K=j,nOV1 

B(I,J)=B(T, J)-A(I,K)*A(J,K) 


SOLVE  SPECIAL  L.  P.  PROBLEM 


CALL  CNMNgg  (NDR,NfcR,c,MSl,B,N3,N<i,N5) 

IF  (IPRINf.GT.l.AND.NtR.GT.O)  *RITE  (6,180) 

CALCULATE  HES"l-TING  DIRECTION  VECTOR,  S, 

slope=o. 


USABLE-FEASIBLE  DIRECTION 


DO  UO  1=7, nDV 

S1=0, 

IF  (NVC.Gt.O)  S1=-A(NAC1, I) 

DO  130  j=7,ndr 

Sl=Sl-A(J,  n*C(J) 

SLOPE=SLOpe+Sl*OF (I) 

S(I)=S1 

S(NDV1  )  =  l'. 

IF  (NVC.Gt.O)  S(N0V1 )=-A(NACl ,NOVl) 

DO  150  J=i*NDR 

S(NDvi)=S'fNOVl)-A(J,N0Vl)*C(J) 


NORMALIZE  S  TO  MAX  ARS  OF  UNITY 


Sl=0, 

DO  lfeO  1  =  7, NOV 

Al=AHS(S( 7) 1 

IF  (  A  1  .  G  T  '.  s  1  )  Sl=Al 

CONTINUE 

IF  (SI  ,LT'  J  .OE-10)  Slsl.oE-10 

Slsl ,/Sl 

DO  170  1=7, NOV 

S(i)=si*sf n 

SLOPE=Sl*sLo^E 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1060 
1090 
1  100 
1  110 
1  120 
1130 
1140 
1  150 
1  160 
1  170 
1  160 
1190 
1200 
1210 
1220 
1230 
12U0 
1250 
12b0 
1270 
1280 
1290 
1300 
1  310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1U00 
I  a  1  0 
ia20 

1430 
1  440 
1450 
1460 
1470 
1480 
1490 
1500 


165 


c 
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S(NOVl )sSi*S(NOVl  ) 

RETURN 


FORMAT 

End 


S-vFCToR  HAY 


SEPT,  77 


DIRECTION  FINDING  PROCESS  DID  NOT  C0NVERGE/5X, 
NOT  BE  VALID) 


1510 
1520 
1540 
1540 
1550 
15o0 
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10 


C 

20 

C 

C 

C 


SlJBR 

COMM 

1FOCH 

2ITEH 

COMM 

2Da,A 

3LPFE 

*NCaL 

5IG00 

DIME 

IU8(N 

KOUT 

FUNC 

BY  G 

NASA 

OBJ 

ALP 

SLOP 


OUTIN 
ON  /C 
M,CT# 

,  INFO 
ON  /C 
LP, 05 
3,  ALP 
(2), I 
01  ,  IG 
NSION 
H  ,SC 
INE  T 
TION 

.  N. 
-AMES 
=  INI 
=  MOV 
E  =  I 


F  C^MNob 
KJMNl/  IP 
rTMlN,CT 
G, IGOTO, 
0NSAV/D1 
f ?) f A2,  A 
I  N.ALP^I 
D?(i),NV 
0002, IGO 
X(Nl),D 
A  L  f  N  1  ) 
0  SOLVE 
M^NlMlZA 

vamoerpl 
pfSfarc 

TIAL  AND 
p  PAH  A  ME 
MITIAL  S 


ALPSID  =  MOVE  TO  SIDE  CONSTRAINT, 

ALPFES  =  MOVE  TO  FEASIBLE  REGION, 

Alpnc  =  MnvF  TO  nEh  NON-LlNEAH  CONSTRAINT, 

ALPLN  =  MnvF  TO  LINEAR  CONSTRAINT, 

ALPCA  =  MnvE  TO  RE-ENCOUnTER  CURRENTLY  ACTIVE  CONSTRAINT, 

ALPMIN  =  MOVE  TO  MINIMIZE  FiJNCTION, 

ALPTOT  =  TOTAL  MOVE  PARAMETER, 

ZRO=0. 

IF  (JGOTO',Efl.O)  C-0  TO  10 

SO  TO  (14^,310,520),  JGOTO 

IF  (IPRINT>GE,5)  WHITE  (6,730) 

ALPSAV=ALp 

ICOUNT=0 

ALPTOTsO. 

tolerances. 

CTAMrAHS(rTMlN) 

CTBM=A8S(rTLMIN) 
PROPOSED  MOVE. 
CONT INUE 

*****   BEr,IN  SEARCH  OR  IMPOSE  SIOE  CONSTRAINT  MODIFICATION   ***** 

A2=ALPSAV 

1C0UNT  =  ICo(INT  +  1 

ALPSin=l,nE+20 

INITIAL  A, phA  ano  OBJ. 

ALP=0. 

FlsOBJ 

KSIDrO 

IF  (NSIOE' FO.O)  GO  TO  70 


10 
20 
30 

ao 

50 
60 
70 
80 
90 
100 

no 

120 
130 
140 
ISO 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


167 


SUBROUTINF  cNHNOb 


SEPT.  77 


450 

C 

C 

C 

C 

C 

C 

C 

C 
C 
C 
C 


460 
470 
C 


U80 


FIND  MOVE  TO  SIDE  CONSTRAINT  AND  INSURE  AGAINST  VIOLATION  OF 
SIDE  CONSTRAINTS 

DO  60  1=1, NDV 

SI=S(I) 

IF  (A6S(Si) .GT.l ,0t-20)  GO  TO  30 

TALCULATE  ALPHA  TO  MINIMIZE  FUNCTION 

11  =  3 

IF  (A2,GT'tA?.AND.  (ir,OOD2.EQ,u.ANO.IBEST,EO,2)  )  IIs2 

CALL  CNMN^a  (II, ALPMIN, ZRO, ZRO, Fl, SLOPE, A?,F2, A  3 , F 3 , ZRO , ZRO ) 

CONTINUE 

PROPOSED  MOVE 

MOVE  AT  LfaST  ENOUGH  TO  OVERCOME  CONSTRAINT  VIOLATIONS, 
AusALPFES 

MOVE  TO  MTniMIZE  FUNCTION, 
IF  (ALPMIn.gT. AU)  au=alPmIN 
IF  Au.LE.n,*  SET  A4  =  ALPSID. 
IF  (A«.LE'.0.)  Au  =  ALPSIO 

LIMIT  MOVp  TO  NF"  CONSTRAINT  ENCOUNTER, 
IF  ( AU.GT'  AL^L^)  Aa  =  ALPLN 
IF  (A4.GT'alPk|0  Aa  =  ALPNC 

LIMIT  MOVp.-  TO  WE-ENCUUNTeR  CURRENTLY  ACTIVE  CONSTRAINT. 
IF  (A4.GT'.  ALpCA)  Aa  =  ALPCA 
LIMIT  AU  fo  5.*Ai, 
IF  (AU.GT^  (S.*A3)  )  Aa  =  5.*A3 
UPDATE  DESIGN. 

IF  (I8EST>Nie.3,OH,NCON.EQ,0)  GO  To  470 

STORE  CONSTRAINT  ValUFS  IN  G2.   F3  IS  BEST.   F2  IS  NOT, 
DO  460  I=i ,NCON 
62(1)36(1! 
CONTINUE 
CONTINUE 

IF  A<j  =  A3  iND  lGOOOl=0  AND  IGOOD3=l,  SET  A<I  =  ,9*A3, 
ALP=A4-A3 

IF  ((IGOOni .EO.0.AND.IG0OD3.EQ, 1 ) . AND, ABS ( ALP) .LT. 1 , OE-20 )  A«=,9*A 
13 

MOVE  A  DISTANCE  A4«S 

ALP=AU-A3 

ALPTOT=ALPTOT*ALP 

DO  480  !=i,NDV 

X(I)=X(I);aLp*S(I) 

CONTINUE 

IF  (IPRINf.LT.5)  GO  TO  510 

WRITE  (6,720) 

WRITE  (6,7a0)  Afl 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
b20 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
860 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
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U9Q 


500 

510 

C 

C 

C 


520 


530 
C 


540 
550 


C 
C 
C 

560 
C 


IF  (NSCAI/  EO.O)  GO  TO  500 
DO  490  I=j, NOV 
G<L)=SC4Lm*X(I) 

WRITE  (6,750)  (G(I),I=1,NDV) 

GO  TO  510 

WRITE  (6,750)  (X(I),1=1,NDV) 

CONTINUE 


UPDATE  FUNCTION  AND  CONSTRAINT  VALUES 


NCAL(  1  )=Nf-4LU)*l 

JG0T0=5 

RETURN 

CONTINUE 

FU=OBJ 

IF  (IPRTNr.r.E.S)  WRITE  (6,760)  Fa 

IF  (IPRINT.LT.5.UR.NCON.EO.0)  GO  TO 

WRITE  (6,770) 

WRITE  (6,750)  (G(I), I=l,NCON) 

CONTINUE 

DETERMINE  ADAPTABILITY  OF  Fa. 

IGOOD4=0 

Cv4=o. 

IF  (NCON.fq.Oi  GO  TO  550 

DO  5a0  I=i,NCON 

CC=CTAM 

IF  (ISC(I).GT.O)  CC=CTBM 

C1=G(I)-Cr 

IF  (Cl.GT#cv«)  CVasCl 

CONTINUE 

if  (cva.Gy.o.)  IGOooan 

CONTINUE 

ALP=Aa 

OBJ=Fa 


530 


DETERMINE  ljEST  DESIGN 


GO  TO  (560,6i0,660) ,  IBEST 

CONTINUE 

CHOOSE  BETWEEN  Fi  and  Fa, 

IF  (  IGOOO7#EU.0.AND.IGOOna.£iJ.0)  GO  TO  570 

IF  (CV1.Gt.CVU)  GO  TO  710 

GO  TO  580 


GO  TO  710 


570 

CONTINUE 

IF  (FU.LE>i) 

580 

CONTINUE 

C 

Fl  IS  HEST. 

ALPTOT3ALPTOT- 

08J=F1 

DO  590  1=?, NOV 

a  a 


1010 

1020 

1030 
10U0 
1050 
lOGO 
1070 
1080 
1090 
1  100 
1110 
1  130 
1130 
1  140 
1150 
1  160 
1  170 
1  180 
1  190 
1200 
1210 
1220 
1230 
1240 
1250 
12o0 
1270 
1280 
12V0 
1300 
1310 
1320 
1330 
13«0 
1350 
13&0 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
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590 


600 

610 
C 


620 

630 
C 


640 


650 

660 
C 


670 

680 
C 


6^0 


700 
710 


X(I)s 

CONTI 
IF  (N 
DO  60 
G(I)  = 
CONTI 
GO  TO 
CONTI 
CHOOS 
IF  (I 
IF  (C 
GO  TO 
CONTI 
IF  (F 
CONTI 
F2  IS 
OflJ  =  F 
A2  =  A0 
ALPTO 
DO  64 
X(I)  = 
CONTI 
IF  (N 
DO  65 
G(I) 
CONTI 
GO  TO 
CONTI 
CHOOS 
IP  (I 
IF  (C 
GO  TO 
CONTI 
IF  (F 
CONTI 
F3  IS 
08J  =  F 
A3  =  Au 
ALPTU 
DO  69 
X(I)  = 
CONT  I 
IF  (N 
DO  70 
G(I)  = 
CONT] 
CONTI 
ALP'A 

If  (I 

JROTO 


X(I) 

NUE 
CON, 
0  Is 
Gl  (I 
NUE 

710 
NUE 
E  BE 
GOOD 
V2.G 

630 
NUE 
4.LE 
NUE 

BES 
? 

-A2 
T  =  AL 
0  1  = 
X(I) 
NUE 
CON, 
0  1  = 
G2(  I 
NUE 

710 
NUE 
E  BE 
GOOD 
V3.G 

680 
NUE 
".IE 
NUE 

BES 
3 

-A3 
T  =  AL 
0  1  = 

*(I  ) 

NUE 
CON, 
0  1  = 
G2(I 
NUE 
NUF 
LPTO 
PRIN 
0 


-A4*S(I) 

FQ.O)    GO  TO  710 

T.NCON 

) 


twfEn  F2  and  Fa. 

?.FO.O,  and,  IGUOM.EQ.O)  GO  TO  620 

T.cVa)  GO  TU  710 


>2)  GO  TO  710 
T. 

PTHT-A2 
j  ,MDV 
-A2*S(I) 

FO.O)  GO  TO  710 

?,NC0N 

1 


TWFtN  F3  AND  Fa, 

3.Eu.0.ANo.lGOOoa,EQ,Q)  Go  TO  670 
T.CVU)  GO  TO  710 


'.F3)  GO  TO  710 


r. 


PTOT-A3 
1.NDV 
-A3*S( I) 

FQ.O)  GO  TO  710 

1  ,NCON 

1 


T.GL.5)  wriTf  (6,790) 


1510 
1520 
1530 
1540 
1550 
1560 
15  70 
15a0 
1590 
1600 
1610 
lo20 
1630 
1640 
1650 
1060 
16/0 
1680 
lto90 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1300 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
I960 
1970 
1900 
1990 
2000 
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30 


40 
C 


50 
C 


60 
C 

70 
C 

c 
c 


ITH  C 
S(I)  = 
SLOPE 
GO  To 
CONTl 
xirX( 
S!  =  l, 
IF  (S 
LOWER 
XI2  =  V 
XI1SA 
IF  (X 
CONST 
Gl  =  (X 
IF  (G 
PROPO 
ALPAs 
IF  (A 
GO  TO 
CONTl 
UPPER 
X!2  =  V 

XI1SA 

IF  (X 
CONST 
GI  =  (X 
IF  (G 
PROPO 
ALPAr 
IF  (A 
GO  TO 
CONTl 
MOVE 
SLOPE 
S(I)  = 
KSIO  = 
CONTl 
ALPSI 
IF  (A 
CONTl 


FORMATS 
POkjenT    OF    S    IS    SMALL.       SET    TO    ZE«0. 

L0pf-ST*OF(I) 
0 

E 


I 
ST'. 

OUh 
(I) 
(XT 
.Lt 

I  Nt 

-*; 

ST. 

0   M 

12. 

*.| 
0 
E 
OUm 

(It 

(XT 

.Lt 

INT 

xi? 
GT'. 

0   H 

12. 

A.r 

0 
E 

LL 
LOp 


0.)  GO  TO  UO 
0. 

2) 

.1  .)  XIlsl. 

VALUE. 
)/XIl 

-t.OE-e)  GO  TO  50 
nvfc  TO  LOWER  BOUND. 
XT ) *SI 
T.ALPSIO)  ALPSlOsALPA 


0. 

?) 

.1  .)  X  I  1 =  t  . 

VALUE. 
)/XTl 

-t  .OE-6)  GO  TO  50 
OVE  TO  UPPER  BOUND. 
XI)*SI 
T.ALPSID)  ALPSlOsALPA 


vtOlate  side  constraint,  set  S ( I )=0. 
E-S(I)*DF(I) 


id;i 

E 

IS  UPPFR  bound  on  alpha, 

GT'_ALpSID)  A2  =  ALpSlD 
E 


CHECK  ILL-CONDITIONING 


IF  (KSID.FQ.NOV.UW, ICOUNT.GT. 10)  GO 
IF  (NVC.  Efj.o.  AND,  SLOPE.  GT.O.)  GO  TO 
ALPFES=-l' 
ALPMINs-1 


TO  710 
710 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 

21  10 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 

22  0  0 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
24t>0 
2470 
2480 
2490 
2500 
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SEPT.  77 


80 
90 
C 

C 

c 


100 


110 


120 

C 

C 

c 

130 


1«0 


150 

C 

C 

C 

C 

C 


ALPLNal , l.*LpSIO 

Al_PNC  =  AlPsiD 

Al_PCA  =  ALPsin 

IF  (MCON.pQ.Ol  GO  TO  90 

STORE  CONSTRAINT  VALUES 

DO  80  Isl.NCON 

6l(I)sG(I, 

CONTINUE 

CONTINUE 


IN  Gl 


MOVE  A  DISTANCE  A2*S 


ALPTOTSALPTDT+A2 

DO  100  I=i, NOV 

X(I)=X(I);a2*S(I) 

CONTINUE 

IF  (IPRINT>LT.S)  GO  TO  130 

"RITE  (6,740)  *2 

IF  (NSCAL'.EO.O)  GO  TO  120 

DO  I ] 0  I=^,nDV 

G(I)sSCALfI)*X(I) 

WRITE  (6,750)  (G(I),I  =  l,NOV) 

GO  TO  130 

write  (^WiO)  (X(I),  1  =  1, NOV) 


UPDATE  FUNCTION  ANQ  CONSTRAINT  VALUES 


NCAL(1  )=NrAL(1  )♦! 

JGOTOsi 

RETURN 

CONTINUE 

F2=OBJ 

IF  (IPRINt.gE.5)  WRITE  (6,760)  F2 

IF  (IPRINt.lT.5.0R,NCON.EO.O)  GO  TO  150 

WRITE  (6,770) 

WRITF  (6,750)  (G(I), 1=1 ,NCON) 

CONTINUE 


IDtNTIFY  accaptadility  of  designs  fi  AND  F2 


IGOOD  =  0  IS  ACCAPTABLE. 

CV  =  maXImijm  CONSTRAINT  VIOLATION, 

IGOOD1=0 

IGOOD2=0 

CV1=0. 

CV2=0. 

NVC1=0 

IF  (NCON.po.O)  GO  TO  170 

00  160  I=i,nC0N 

CC=CTAM 


2510 
2520 
2530 
2540 
2550 
2S60 
2570 
2560 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2660 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2  760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
29<f0 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
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IF  (ISC(Il.GT.O)  CCsCTHM  3010 

Cl=Gl(I)-rc  3020 

C2=G(I)-Cr  3030 

IF  (C2.GT'o.)  NVClsNVCl+1  3040 

IF  (Cl.GT  evil  CVlsCl  3050 

IF  (C2.GT.cv2)  CV2=C2  3060 

160    CONTINUE  3070 

IF  (CVI.Gt.O.)  IGOOOlrl  JOdO 

IF  (CV2.GT.0.)  IG00D2sl  3090 

170    CONTINUE  3100 

A|_P  =  A2  3110 

U8J=F2  3120 

C      —....-.-: —  3130 

C       IF  F2  VIOf  &TES  FLWE.R  CONSTRAINTS  THAN  Fl  BUT  STILL  HAS  CUNSTRAINT  3140 

C       VIOLATION^  RETURN  3150 

C      --- .---« 3  I  cO 

IF  (NVC1 ,|  T.NVC. AN0.NVC1 ,GT,0)  GO  TO  710  3170 

c         ; 31  bo 

C               InFNTlFY  REST  UF  DESIGNS  Fl  ANF  F2  31<?0 

C — 32  0  0 

C       I8EST  CORRESPONDS  TO  MINIMUM  VALUE  DESIGN,  3210 

C      IF  CONSTRAINTS  ARE  VIOLATED,  IBEST  CORRESPONDS  TO  MINIMUM  3220 

C      CONSTRAINT  VIOLATION,  3230 

IF  (IGOOOj .EQ.O.AND,IG0002.EG,0)  GU  TO  180  3240 

C      VIOLATED  rONSTRAlNTS.   PICK  MINIMUM  VIOLATION,  3250 

IBEST=1  32e0 

IF  (CV1.Gf.cV?)  IBEST=2  32/0 

GO  TO  190  32B0 

180    CONTINUE  3290 

C       NO  CONSTRAINT  VIOLATION,   PICK  MINIMUM  F,  3300 

IBEST=1  3310 

IF  (F2,LE>1)  I8EST  =  2  3320 

190    CONTINUE  '  3330 

11=1  3340 

IF  (NCON.po.O)  GU  TO  230  3350 

C       -........' ... .......... . .............. .........  3  36  0 

C      *****                   2  -  POINT  INTERPOLATION                  *****  3370 

C -. —  - . . 33do 

111=0  3390 

200    III=ITI+1  3400 

ClsGlUII)  3410 

C2=G(III)  3420 

IF  (ISC(lTI)  .E'J.O)  GO  TO  210  3430 

C      ----..---._.- ......................................... ............  34 uO 

C                            LINEAW  CONSTRAINT  3450 

C     -..-__.-.; . .  —  ......... . .... .......... — .........  3  a  6  0 

IF  (CI  .Gt'.  i  .0E-5.AND.C1  .LE.CTBM)  GO  TO  220  3470 

CALL  CNMNft7  (II, ALP,ZP0,ZRU,C1 , A?,C2,ZR0,ZR0)  3480 

IF  ( ALP.Lp.n.  )  GO  TO  220  3490 

IF  (CI  ,GT'.cTBM,AND,ALP.GT,ALPFES)  ALPFESsALP  3500 
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IF  fCl.LT' CTL.AND.ALP.LT. ALPLN)  ALPLNsALP'  3510 

GO  TO  220*  3520 

210    CONTINUE  4530 

C      ---- 1 . .... .....     354  0 

C                       NOn-LINEaR  CONSTRAINT  3550 

C      —  1 ...... . .- 3560 

IP  (CI  ,GE'.  1  .0E-5.ANO.C1.LE.CT4M)  r,0    TO  220  3570 

CALL  CNMN07  (I I,alp,ZR0,Z"0/C1 , A2,C2,ZR0,2R0)  3580 

IP  (ALP.Lf.O.)  GO  TO  220  3590 

If  (cUGT'.ctam. and. alp.gt. Ai_pptS)  alpfeS  =  alp  3600 

IP  (CI  ,LT  cT.AND.ALP.LT, ALPNC)  ALPNC  =  ALP  3610 

220    CONTINUE  '  3620 

IF  (III.Lt.nCON)  GO  TO  200  3630 

230    CONTINUE  3640 

IF  (LINOB.  j.fjT.O.  UP.  SLOPE.  GE.  0.  )  GO  TO  240  3650 

C       CALCULATfc  4LPhA  TO  MINIMIZE  FUNCTION.  i6e0 

CALL  CNMNna  (II, ALPMIN,ZRO,ZRO,Fl ,SLOPE, A?,F2,ZR0,ZR0,ZR0,ZR0)  3e70 

2ao   Continue  3660 

C      ----..--.; .................. ....... .....................     369  0 

C                          PROPOSED  MOVE  3700 

C ...  ; ... 3710 

C      MOVE  AT  LpaST  FAR  ENOUGH  TO  OVERCOME  CONSTRAINT  VIOLATIONS.  3720 

A3=ALPFES  3730 

C      MOVE  TO  MTNT*lZE  FUNCTION.  37u0 

IF  (ALPMIn  r,T.A3)  A3  =  alPmIn  3750 

C      IF  A3,LE,n'  SET  A3  =  ALPSlO,  3760 

IF  (AS.LE'.o.)  AJ  =  ALPSID  3770 

C      LIMIT  MOVr  TO  N£*  CONSTRAINT  ENCOUNTER,  3780 

IF  (A3.GT'  ALpNC)  A3  =  ALPNC  3790 

IF  (A3.GT' ALpLN)  A3=ALPLN  3800 

C      MAKE  A3  NnN-ZERO.  3810 

IF  (A3.LL'.  1  .0E-20)  A3sl,oE-20  3820 

C      IF  A3=A2=*LPsIO  ANQ  F2  IS  BEST,  GO  INVOKE  SIDE  CONSTRAINT               3830 

C       MODIFICATmN,  5840 

ALPB=1 ,-A?/a3  3850 

ALPAsI .-A,  PSID/A3  3860 

JBEST=0  3870 

IF  (AHS(A|  pqj ,LT.1.0E-10,ANO.A6S(ALPA) .LT.1.0E-10)  JBESTsl  3880 

IF  (JBfcST'#eo.l  .AND.  lBEST.Ei3,2)  GO  TO  20  3890 

C      SIDE  CONSTRAINT  CHECK  NOT  SATISFIED.  3900 

IF  (NCON.pQ.O)  GO  TO  260  3910 

C       STORE  CONSTRAINT  VALUES  IN  G2.  3920 

00  250  I=i,NCON  3930 

62(1)56(1,  3940 

250    CONTINUE  3950 

260    CONTINUE  3960 

C      IF  A3=A2,  SET  A3=,9.A2,  3970 

IF  (ABS(A,  pr)  .LT.l  .OflO)  A3s.9*A2  3980 

C       MOVE  AT  LfaST  ,01*A2.  3990 

IF  (A3.LT'  (.0l.A2))  A3=.01*A2  4000 
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SEPT,  77 


C 
C 
C 

270 
280 


290 

300 

C 

C 

C 


310 


320 
C 
C 
C 


LIMIT 
IF  (A 
LIMIT 
IF  (A 
MOVE 
ALP  =  A 
ALPTO 
00  27 
MI): 
CONTI 
IF  (I 
WRITE 
WRITE 
IF  (N 
DO  28 
G(I)  = 
WRITE 
60  TO 
WRITE 
CONTI 


MOV 

3.GT 

MOV 

3.GT 

A  DI 

3-*2 

T  =  AL 

0  1  = 

X(I) 

NUE 

PRIN 

(6, 

(6, 

SCAL 

0  1  = 

SCAL 

(<», 

300 

(.*>, 

NUE 


F  TO  S.*A2, 
'.(S.*A2))  A3  =  5.*A2 
F  TO  ALPSID. 
'.ALPSIO)  A3  =  ALPSI0 
STANCE  A3*S, 

PTOT+ALP 

J.NOV 

♦ALP*S(I) 

T.LT.5)  GO  TO  300 

7ft0) 

740)  A3 

^FQ.O)  GO  TO  2<>0 

1  ,NDV 

(I)*X(I) 

750)  (G(I),I=l,NOV) 

750)  (X(I),Isl,NDV) 


UPDATE  FUNCTION  AND  CONSTRAINT  VALUES 


NCAL(l)=NrAL( t )  +  l 

JG0T0=2 

RETURN 

CONT INUE 

F3sOBJ 

IF  (IPRINT.r,E,5)  write  (ft, 760)  F3 

IF  (IPRINt.lT.S.OR.NCON.EQ.O)  GO  TO  320 

WRITE  (6,770) 

WRITE  (6,750)  (G( I),Isl,NCON) 

CONTINUE 


CALCULATE  maximUm  CONSTRAINT  VIOLATION  and  PICK  8EST  DESIGN 


330 

340 
C 


CV3=0. 

IGOOD3=0 

NVC1=0 

IF  (NCON.po.O)  GO  TO  3a0 

00  330  Ts^NCON 

CC=CTAM 

IF  (ISC(Ij.GT.O)  CC=CTBM 

Cl=G( I )-Cr 

IP  (Cl.GT  rvi)  CV3=CI 

IF  (Cl.GT.o.)  NVClsNVCl+l 

CONT INUE 

IF  (CV3.GT.0.)  IGOOD3sl 

CONTINUE 

OETEPMINE  REST  DESIGN, 


aoio 

4020 
4030 

aoao 

4050 
4060 
4070 
4060 
4090 
4100 
41  10 
4120 
4130 
4140 
4150 
4160 
4170 
4160 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4460 
4490 
4500 
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350 

360 
C 


370 
380 


390 


IF  U8EST'  FQ.2)  GO  TO  J6o 
CHOOSE  BETWEEN  FI  AND  F3. 

IF  (IGOOOi .FO.0.ANO. 1GO0O3.EQ.0)  GO  TO  350 
IF  (CV1.Gf.CV3)  IBESTs3 
GO  TO  380 

IF  (F3.LE>1)  IBEST=3 
GO  TO  380 
CONTINUE 

CHOOSE  SEtwEEn  F2  ano  F3. 

IF  (lGOOD?.FU.O.AN0,lr,uOn3.EU.O)  60  TO  370 
IF  (CV2.Gf.CM)  I6EST  =  3 
GO  To  380 

IF  (F3.LE'„F?)  I8EST=3 
CONTINUE 
ALP=A5 
08J=F3 

IF  F3  VIOLATES  FffcR  CONSTRAINTS  THAN  fi  RETURN. 
IF  (NVC1 .1  T.NVC)  CO  TO  7 1 0 

IF  ORJECTTvF  AND  ALL  CONSTRAINTS  4RE  LINEAR,  RETURN, 
IF  (LIN08  r.NE.Q,AND.NLNC.Ef),NCON)  GO  TO  710 
IF  A3  s  A|  PLN  AND  F3  IS  ROTH  GOOD  AND  BEST  RETURN, 
ALPB=1 ,-Al>LN/a3 

IF  ((ABS(ALPB) .LT.l .0E-20.AND.IBEST,EO,3).AND,(IGOOD3.EQ,0) )  GO  TO 
1  710 
IF  A3  =  A|  PSlD  AND  F3  IS  BEST,  GO  INVOKE  SIDE  CONSTRAINT 
MODIFICATION. 
ALPAsl ,-A|  pslD/A3 
IF  (ABS(A,'ba)  ,LT,  1  ,0E-2O.ANO,IBEST,EQ,3)  GO  TO  20 


********** 


POINT  INTERPOLATION 


********* 


ALPNC  =  ALPsir> 
ALPCA  =  ALP<;ir) 
ALPFESs-T 

alpmin=-i' 

IF  (NCON.pQ.O)  GO  TO  440 

111=0 

111=111+1 

Cl=Gi(IIIi 

C2=G2(III, 

C  3  =  G(  III) 

IF  (ISC(lTT) .EO.O)  GO  TO  aoO 


LINEAR  CONSTRAINT.   FIND  ALPFES  ONL*.   ALPLN  SaHE  AS  BEFURE. 

IF  (CI  ,LE'  CTBM)  GO  TO  430 

IIsl 

CALL  cNHNn7  (TI/ ALP,ZRO# ZRO.cl » A3,c3»ZRO,ZRO) 

IF  (ALP.Gt.aLPFES)  alpfessalp 

GO  TO  430 


4510 
4520 
4530 

4540 
4550 
45o0 
4570 
4560 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4  720 
4730 
4740 
4750 
4760 
4770 
4760 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4860 
«890 
4900 
4910 
4920 
4930 
U940 
49S0 
4960 
4970 
4960 
a990 
5000 
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400 
C 
C 
C 


CONTINUE 


NON-LInEa*  constraint 


c 

410 


420 

mo 

440 

c 
c 
c 

720 
730 

740 
750 
760 
770 
780 
790 


11=2 

CALL  CNMN07  (II,ALP,ZRO,Z»0,C1,A2,C2,AS,C3) 

IF  {ALP.Lf.7KO)  GO  TO  430 

IE  (Cl.GE^cT.AND.Cl.LE.O.)  GO  TO  alO 

IF  (Cl  .GT'ctAm.0K.C1 .LT.O. )  GO  TO  420 

ALP  IS  minimOm  MOVt.   UPDATE  FUR  HE"T  CONSTRAINT  ENCOUNTER. 

ALPAsALP 

CALL  CNMNn7  (TI,ALP,ALPA,ZRO,Cl,A?,C2,A3,C3) 

IF  (ALP.LT.  aUPCA.ANIO.ALP.GE.  ALPA)  ALPCA5ALP 

GO  TO  430 

CONTINUE 

IF  (ALP.Gt.aLPFES.ANO.C1.GT.CTAM)  alpfes=alp 

IF  (ALP. LT.ALPNC. AND. Cl .LT.O.)  ALPNC=ALP 

CONTINUE 

IF  (III.Lt.nCON)  GO  TO  390 

CONTINUE 

IF  (LINOB. T.gT.O. OR. SLOPE, GT.O.)  GO  TU  450 


FORMAT  (/^x,2<5HTHREE-POlNT  INTERPOLATION) 

FORMAT  (/////58H*  *  *  CONSTRAINEU  ONE-0 1  MENS  ION AL  SEARCH  INFORMATI 

ION  *  *  *) 

FORMAT  (/><5X,  J5HPR0P0SED  OES  IGN/5X  ,  7HALPHA  =  ,  E  1  2  .  5/5*  »  8HX-  VEC  TOR  ) 

FORMAT  (ly,«E!2.4) 

FORMAT  (/c;x,5H0BJ  =,El3.5) 

format  (/^x»  17hc0nstraint  values) 

format  (/(5x,23htw0-p0int  interpolation) 

format  (/sx,35h«  *  *  end  of  one-0 1  mens ional  search) 

End 


5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
51"0 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
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c 

10 

c 
c 
c 


20 
C 


30 
C 
C 
C 


SUBKOUTINp-  CNMN07 


SlJBHOUTI 

Routine 

OF  A  ONE 
BY  G,  N, 
NASA-AME 
II  =  CAL 

i : 
2: 

EPS  MAY 

IF  Htnui 
ILL'COND 
IND1CATO 
IF  OESIR 
INTERPOL 
II  WILL 
XBARisF.P 
XBAR=X»A 
JJ  =  0 

X21=X?-X 
IF  (ABS( 
IF  (II. E 

CONTINUE 


It 
r' 

En 

AT 

BF 

s. 

t 
XpU.LT.l.OE-20) 

0'.2)  GO  TO  JO 


NOT  LXtTS,  OR  The  function  IS 
-1.0  WILL  BE  RETURNED  AS  AN  EKRO» 


INTERPOLATION  IS  ILL-CONDITIONED,  A  LOwER  ORDER 
I0M»  cO^SISTaNT  WITH  INPUT  [)aTa#  WILL  BE  ATTEMPTED  AND 

CHANGED  ACCORDINGLY, 
1  . 


RETURN 


IIsl:  2-POlMl  LINEAR  INTERPOLATION 


11  =  1 

YYsYl*Y2 

IF  (JJ.EO'.o.OP-.YY.LT.O.  )  GO  TO  20 

INTERPOLATE  bETwEEN  Xp  AND  X3. 

DY=Y3-Y2 

IF  (ABS(Dv) .LT. 1 .OE-20)  GO  TO  20 

XBAR  =  X,J  +  Y?*f  X2-X3)/0Y 

IF  (XHAR.i  T.tPS)  XBARrXBARl 

RETURN 

DY=Y2-Y1 

INTERPOLATE  BETWEEN  xj  AND  X2, 

IF  (A8S(DY) .LT, 1 .0E-2O)  RETURN 

XHARsXUY,  »(X]-X2)/DY 

IF  (XRAR.iT.EPS)  XhARrXHARl 

RETURN 

CONTINUE 


11=2:  3-POINT  QUADRATIC  INTERPOLATION 


JJ=1 
X31=X3- 
X32  =  X3- 


XI 
X2 


QQ=X2I *Xii *x32 


10 
20 
30 

40 

50 

60 
70 
60 
90 
100 
110 
120 
130 
140 
150 
160 
170 
1W0 
190 
200 
210 
220 
230 
240 
250 
2o0 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 

3ao 

390 
400 
410 
420 
430 
440 
45  0 
460 
470 
480 
490 
500 
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IF 

(AB 

AA  = 

(Yl 

IF 

(AR 

5B  = 

(Y2 

cc  = 

Yl- 

BAC 

=  HB 

IF 

(BA 

BAC 

=  SO 

AAs 

.5/ 

XBA«=A 

XB2 

=  -A 

IF 

(Xr 

IF 

(XB 

IF 

(XB 

RETURN 

End 

S(Qq).LT.1 .OE-^o)  RETURN 
*X3?-Y2*X31 +Y3*X21 )/OQ 
S(Ai) .LT. 1 .OE-20)  GO  TO  10 
-Yl  )/x2\-M*(tl  +  x2) 
Xl*'(AA*Xl+HB) 
*BB«./j  ,  *AA«CC 
C.Lf.O.)  GO  TO  10 
RT(rac) 

A  A 

A*(RAC-B6) 

A*(RAC+BB) 

AR.l  T.EPS)  XB4K=XB2 

2, Lt.XBaR, ANO.XR2.GT.EPS)  XRAW=XB2 

AR.IT.EPS)  XBAHsXBARl 


510 
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530 
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550 
560 
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580 
5V0 
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SUBROUTINE  c^MNOS 


SEPT.  77 


10 


C 
C 
C 
20 


SU8»0UTlNp  CNMNOtt  (NQB,NER,C,MSl ,B»N3,N4,N5) 

DIMENSION  CfNu),MSl(N5),B(N3,N3) 

HOUTiNfc  Tn  SOLVE  SPFCIAL  LINEAR  PRUPLEM  FOR  IMPOSING  S-TRAnSPOSE 

TIMES  S.Lp.1  BOUNDS  IN  The  "OoIFIeD  hETHOd  OF  FE^SIRLF  DIRECTIONS, 

BY  G.  N,  V4M0FRPLAATS  APRIL,  1972, 

NASA-AMES  ppSfAfiCH  CENTER,   MOFFETT  FIELD,  CALIF, 

REF.   'STpuc^HRaL  OPTIMIZATION  BY  METHODS  OF  FEASIBLE  DIRECTIONS*, 

G,  N.  VANrifRPL  AATS  AND  F,  MOSES,  JOURNAL  OF  COMPUTERS 

AND  STHUCtIIPES,  VOL  3,  PP  73V. 75S,  1973, 

FORM  OF  L'.  P.  IS  BX=C  wheRE  1ST  Nf)B  COMPONENTS  OF  X  CO.mTaIN  VECTOR 

U  ANO  L*St  NOB  COMPONENTS  CONTAIN  VECTOR  V.   CONSTRAINTS  ARE 

U.GE.O,  V'.GE.O,  AND  U-TRANSPOSE  MMES  V  =  0. 

N£R  s  ERROR  flag,   if  ner.ne.O  On  return,  process  has  not 

converged  in  5*ndh  iterations, 

vec'or  ms{  identifies  the  set  of  basic  variables. 

choose  injnal  basic  variables  as  v,  and  initialize  vector  msi 

NER=1 
M2=2*N0B 

calculate  cr*in  and  eps  and  initialize  msi. 
eps=-i.oe;io 

CBMlNsO, 

DO  10  1=1, NOB 

BIrB(I,I) 

CBMAxsO, 

IF  (BI.LT* .1 ,0E-6)  CBMAXsCC I)/BI 

IF  (BI.GT'fPS)  EPSsBI 

IF  (CBHAx'gT.CBmIN)  CBMInsCBMAX 

MSI (l)=0 

EPSs,0001,F°S 

IF  (EPS.LT.-l .OE-lD)  FPSs-l.OE-10 

IF  (EPS. Gt.-. 0001 )  fcPS=-.O0Ol 

CBMlN  =  CRMTN.l  .OE-6 

IF  <CBMIN'>LT.1  .0E-10)  CBMlNsl  .OE-jO 

ITERIsO 

NMAX=5*NDq 


*««*#*«*» 


BEGIN  S£«  ITERATION 


********** 


I Tt  » 1  =  I  TEo  t  ♦  1 

IF  (  ITERl'.GT.NMAX  )  RtTURN 

FINO  MAX.  c(I)/qd»n  FOR  1  =  1, NOB, 

CBMAX=,9*rRMlN 

ICHKsO 

DO  30  1=1. N08 

Ct=C(I) 

6I=b(I,I) 

IF  (BI  .GT'^EPS.OR.Ct  .GT.O.)  GO  TO  30 

CB=Cl/BI 
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SUBROUTINE  CNMNOtt 


SEPT.  77 


30 


uo 


50 

60 

70 

C 
C 
C 
C 

80 


90 


IF  (cb.le'.cbmax)  go  TO  3o 

ICHKsI 

CBMAX=CB 

CONTINUE 

IF  (CHMAX'^lt.CBMIN)  GO  To  70 

IF  (ICHK.pQ^O)  GO  TO  70 

UPDATE  VErTOK  MSI. 

JJsICHK 

IF  (MSI ( Jj) .EQ.O)  JJ=ICHK+NOB 

KK=JJ+N0B 

IF  (KK,GT'#M2)  KKrJJ-NDB 

MSI  (KK)  =  IfHK 

MSI (JJ)=0 


PIVO!  OF  B(ICHK,ICHK) 


BB=I  ,/B(IrMK,  ICHK) 

DO  UO    J=l,NOB 

BdCHK,  J)=pB*H(ICHK,  J) 

C(ICHK)=CrmAX 

BUCHK,  IChK)=B8 

ELIMINATE  COEFICIENTS  ON 


VARIABLE  ENTERING  BASIS  AMD  STORE 


COEFICIENTS  ON  VARIABLE  LEAVING  BASIS  IN  THEIR  PLACE. 

DO  60  I  =  t,Nr>B 

IF  (I.EQ.TCHK)  GO  TO  60 

BB1=R(I,I(-HK) 

B(I, ICHKJso. 

DO  50  J=l ,NOB 

B(I,J)=H(t,J)-BBU8(ICHK,Jj 

C(I)rC(  I  ).8Rl*CBMAX 

CONT INUE 

GO  TO  20 

CONT INUE 

N£R  =  0 

STO^E  ONLY  c°MpnN£.NTS  oF  U-VECTOR  IN  iC«.   USE  8(1,1)  FOR 

temporary  sTORAGt 

DO  80  1=1 ,NOB 

B(I,1)=C(T) 

CONTINUE 

DO  90  1=1. NOB 

C(I)=0. 

J=MS1 (I) 

IF  ( J . G  T . n ) 

IF  (C(I).|  T, 

CONTINUE 

RETURN 

END 


C(I)=B(J, 1  ) 
0.)  C(I)=0. 
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550 
560 
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560 
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650 
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670 
680 
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700 
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720 
730 
740 
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770 
780 
790 
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840 
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SUBROUTINE  aNaLIZ  -  LASER  TURRET  ANALYSIS 


SEPT.  77 


SUB 

ROU 

SUP 

BY 

NAV 

NaV 

COM 

*  DE 

*  TD 
COM 

*  RB 
COM 
DIM 
FOU 
NMA 
MMA 
OPT 
MR 
B  =  4 
NPR 
IF 
CAL 
CAL 
CAL 
HET 

10  CON 
YYP 
YYP 
IPR 
IF 
I  PL 
IF 
SUM 
BOU 
X-D 
NSY 
AMU 
CAL 
THE 
NSY 
AMU 
CAL 
00 
AMA 
CAL 
1,BB 
2AP, 

3,nr 

SUM 

NN: 


ROUTI 
TINE 
EPSON 
G,  fit, 
AL  PO 
AL  PO 

MQN  / 
NGAM, 

EMRT, 

HON  / 

1(10) 

MQN  / 

ENS10 

RIER 

XslO 

XslO 

ICAL 

AP  =  3 

INT  =  0 

(ICAL 

L  TIN 

CULAT 

L  FCO 

URN 

TINWE 

XBC(1 

TBC(  1 

INTsO 

(ICAL 

OT  =  0 

(ICAL 

P02  =  0 

npaRY 

IRECT 

MrO 

LTsEP 

L  SCO 

TA-01 

M=i 

LT  =  EP 

L  Ben 

30  IB 
CMsAM 

L  pho 

AR,  al 
A,R,  T 
81,  TO 
OF  S 
NRHI* 


Np  AN 

Tn  pE 

It    FL 

vanO 
Stt,ra 
Stc.ra 
Gi  one 

fcPS.E 
ThmaX 
CmlOC 

»  ttTL 

CmlOC 
N  T(l 
E  x  P  A  N 


ALIZ( 

RFORM 

nw , 

FHPLA 

nUATS 

nUA  TE 

M/  AH 

pSm,g 

,  WA  YE 

/ETA 

E(20) 

0  )  ,  A  N 
SION, 


ICALC) 
LASER  TURRET 

ATS 


ANALYSIS  IN  SUBSONIC  AND 
aULY,  1977. 


SCHOOL,  MONTEREY,  CALIF. 
AR(20),ACL,AM;,RlM,AL,AMACHl(30),BHAR(20),DENRT0, 
AMMAi(30),PHlI(30),PFilS,SlOPEX(30),SUMPOa, 
L,»GHTI ( JO ) , XM 

1(16)  ,  maxk,maxp,n8Eam,neTaI,nRBI,NTHBC,NXBC# 
, YYPXflC( 10,3) , YYPTHC( 10, i) 
(10,  15),BMX(10, 15) , ANT( 10,15) 
(10),BN( 10) ,P0ISTI (200) 


Path  length. 


C.GT.l )  GO  TO  10 

Put 

E  FOU 

Ef(aL 


RIER  COEFFICIENTS. 
,ACL,THMAX,AN,QN,MAXK,MAXP,NMAX,MMAX) 


,?)=E 

C'.EQ. 

C'.EQ, 

rnNO 
Inn. 


PS 
PS 


3.OR.NPRINT.GT.0)  IPRINTsl 

3)  IPLOT=l 

ITIONS. 


S.RRAP(  1  ) 

nn  (nsymfnxbc,yypxbc,a8ar,maxk,al,amult) 
RfctION, 


S*ARAR(  1  ) 

Nn  (usym,nthuc#yyptrc#bbar,maxp,thmax,amulT) 

E*M=l  ,NHt AM 

ArHT (IBEAM) 

I<;T      (Y,R,ThETA,EPSM,XM,Phi,GAMMA,RHO,Y,Z,PHIPP,U,V,CP,ARAR 

/»CL'THMAX,EPS,HtNDEX,WR,FTA,AN,HN,MAXK,MAXP,NMAX,MHAX,KTH 

»nFLOPL»IBMM,REF0PL,'«AVEL»RFilS,ETAT»RBl,GAMMAl,PHII,NtTAI 
E^RT,P0I5Tl,0ENGAM,AMACH,nENRT0,AKPRIM,IPRlNT,IPL0T) 
GiitAPtS    OF     PHASE    oISTURTION. 
NFTAl 
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SuBROUTlNp  4NALIZ  -  LAsEr  turret  analysis 
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SMPlrO, 

DO  20  1=1, NN 
20  SMPisSMPUpnlSTT  (I  )**? 

SUMP['?  =  SUMPp2f  WGHTI  (I8EAM)  *SMPl 
50  CONTINUE 

THET a=0, 

Ns20 

XMAXs?.*A,' 

XMINs-XMAy 

R  =  0. 

IF(IPRINT'-Fo.o)  GO  TO  50 

DO  60  Ist*NBEAM 

AMACHrAMAfHT  (  T) 

IF(I.EQ.l)  r,0  TO  80 

I  M  l  =  I  -  l 

DO  70  J=i,TMt 

DHACH=AMArHT(J)-AMACH 

IF( AHS(DM4Ch) .LT.0.0O1)  GO  TO  60 
70     CONTINUE 
80     CONTINUE 

CALL  CPP*NT(ThETa,aMACH,AL,ACL,ThmaX,MaXK,MaXP,NMaX,MMAX,ABAR, 
*  R8AR>EPS,AN,HN,N,XMlN,XMAX,R,Dfc'NGAM) 
60     CONTINUF 

CALL  SURPRT(ABAH,88AH,MAXK,MAXP,EPS,AL,THMAX) 

wrITE(6,4o)sUmPD2 
C      CALCULATE  TURRET  SLOPE  AT  30  POINTS, 
50     NVAL=30 

amult  =  eps*rrar(1  ) 

Call  slopp  (maxk, abaR, al,slopex,nval,amulT) 

RETURN 

c 

40  FORMAT  (/;/«5X,  36HSUM  OF  SQUARES  OF  PHASE  DISTORTION  =,E12.5) 
END 
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530 
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subroutine  rcqno 
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10 


20 
30 


40 
50 


surpou 

DIMENS 
ROUTIN 
TH£  FI 

The  td 
total 

NHCTsO 
DO  10 
IF  (AB 
IF  (AH 
CON T IN 
IF  (N8 
MAxEl= 
IMPOSE 
NSYMjs 
IF  (NS 
NSYMjs 
00  20 
ABAR( I 
CONTIN 
NUMHfcR 
N\ =NRC 

set  up 

NsO 

JJsNSY 
DO  70 
XsYYPB 
IF  (AH 
Y  BOUN 
NsN+t 
8(N)=Y 

Lsl 
AAsl  . 
DO  ao 
IF  (J. 
IF  (J. 
L  =  L*1 

44:4  4  * 

IF  (NS 
CONT IN 
CONT  IN 
IF  (  AR 
Y-PRJ.M 
N  =  N*1 
B(N)sY 
L  =  2 
A(N,  1) 
AAsl  , 
IF  (NS 
DO  00 


TINp  flCONO  (NSYH,NRC# YYPBC, ABAR,MAXE»XHEFf AMULTS) 

ION  YYPRC(10,3),ABAR(U,Ano,lO),B(10) 

E  Tn  THPOSE  POLYNOMIAL  bUUNpAPY  CONDITIONS, 

RST  nbCT  COfcFICIhNTS  OF  ABAR  ARF  CALCULATED  WHERE  N8CT  IS 

TAL  NiiilRtR  °F  B.  C.  S, 

NUMqpt?  OF  BOUNDARY  CONDITIONS, 

1=1. NRC 

S(YYPRC(I,2)).LT,l00.)  NBCTsNBCTtl 

S(YYPRC(I,i)J,LT,loO.)  NBCTsN8CT+l 

UE 

CT,,  e.O)  RETURN 

maxf+i 

SYmmfTry  IF  RfcOUlRED. 
I 

YM.FQ.O)  GO  TO  30 
2 
1*2  m*XE1,2 

)=0. 

UE 

OF  C0EFICIENTS  ELIMINATED. 
T  *N<^  ym  1 

COpFlCIENT  MATRIX  AND  PHS, 

Ml+^ 

1=1 ,NRC 
C{I,i)*XR£F 

S(YYPRC(1,2) ) ,GF. 100.5  GO  TO  50 
DAHy  CONDITION, 

^pHr( I»?)/AMULTS 


J=t ,MAXEl,NSYMi 

GT.Mt)  R(N)sH(N)-ABAR( J)*AA 

LE.W1)  A(N,L)=AA 


YH1  FQ.2)  AAsAA.X 

UE 

UE 

S(YYPRC( 1,3) )  ,GF.  100.)  GO  TO  70 

E  BOUNDARY  CONDITION, 

YPBr( T»  3)/AMULTS 

=  0. 

YHl'.F0.2)  AAsX 
J  =  J.J,MAXEl,NSYMt 


10 

20 
30 

ao 
so 

60 
70 
80 
90 
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280 
290 
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340 
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SUBROUTINE  BCONO 
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B8  =  F|_0AT(,n-i. 

IF  (J.GT.Ml)  B(N)sB(N)-ABAH(J)*BB*AA 

IF  (J.LE.Nt)  A(N,L)=AA*BB 

L  =  L+1 

AAsAA*X 

IF  (NSYMl'^Efj.23  aa  =  aa*X 
60  CONTINUE 
70  CONTINUE 

DETERMINE  COEFICIENTS. 

Ml  =  1  0 

H2=10 

*3=l0 

*U=1 

NLC=1 

CALL  GELIm?  (A, 8,  N,NLC,Hl,M;?,M3,M<4,NER) 

STORE  RESULTS  IN  ABAR, 

Jal-NSVHl 

DO  flO  1=1 ,N 

J=J+NSYM1 

80     ABAR(J)s8fn 
RETURN 
END 
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SUBROUTINp  bESJ 
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subroutine  besj 

PURPOSp 

COMpuTE  The  J  bESSEL  FUNCTION  FOR  A  GIVEN  ARGUMENT  ANO  OROER 

USAGE 

CAL|'  RESJ(X,N,HJ,D,  IER) 

DESCRIPTION  OF  PARAMETERS 

X   .THE  ARGUMENT  OF  THfc  J  BESSEL  FUNCTION  DESIRED 
N   .THE  OROER  OF  ThE  J  BESSEL  FUNCTION  DESIRED 
BJ  .THE  RESULTANT  J  BESSEL  FUNCTION 
0       -REQUIRED  ACCURACY 
IER.HFSULTANT  ERROR  CODE  *HfRE 

J£P=0   NO  EKROw 

jEr=1   n  IS  NEGATIVE 

JER=?   x  IS  NEGATIVE  OR  ZERO 

TER=3   REQUIRED  ACCURACY  NOT  OBTAINED 

TER=q   RANGE  UF  N  COMPARED  TO  X  NOT  CORRECT  (SEE  REMARKS) 

REMARK?; 

n  must  be  greater  than  oh  equal  to  zlro,  but  it  must  be 

LES5  THAN 

?0+lO*X-x*«  2/3    FOR  x  LESS  THAN  OR  EQUAL  TO  15 
OO+X/2  pOR  X  GREATER  THAN  15 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONp 

METHOD 

RECURRENCE  RELATION  TECHNIQUE  DESCRIBED  B*  H,  GOLDSTEIN  AND 
R.m".  THAleR»  'RECURRENCE  TeChNIUUeS  FOR  The  CALCULATION  OF 
BESsel  FUNCT  IONS  '  »m.  T.  a.C.  #  V.  1  3,PP.  1  02-108  ANI)  I. A.  STEGUN 
AND  m.  ABRAMOW1TZ,  -GENERATION  OF  HESSEL  FUNCTIONS  ON  HIGH 
SPEfd  COMPUTtRSi,M,T,A.C., V.i 1 , 1 957, PP. 255-257 


SUBROUTINp  *ESJCX,N,BJ,0, IER) 

BJs.O 

IF(N)10,2o,2O 
10  IER=l 

RETURN 
20  lF(X)J0,3o,3l 
30  IER=2 

RETURN 
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210 
220 
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290 
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SURROUTlNp  «EsJ 

31  IF  i%-\S.)T,2.  iZ'11* 

32  NTFST=20.;iO.*x-X**  2/3 
GO  10.  38 

3a  NTEST=90.tX/2. 

36  IF(N.nTESt)40,38,38 

18  IER  =  4 

RETURN 
40  IEK=0 

Nl=N+l 

BPREVs.O 

COMPUTf  Sta^TT^G  VALUE  OF  M 

IF(X-5.)5n,hO,60 
50  MA=X+6. 

GO  TO  70 
60  M*=t ,4*X+fcO./X 
70  MB  =  N+IFIX'f  x)/«  +  2 

MZtRO=MAXo(MArM8) 


SEPT,  77 


c 

c 

SET  UPPER  L  TMI T  OF  M 

c 

MMAXsNTESt 

100  00  190  Msm7Er0,MMAX, 3 

c 
c 

SET  F(M),f(M-1 ) 

c 

FM1=1 ,OE-?R 

FMs.O 

ALPHA=.0 

1F(M_(M/214?) 120,110, 120 

110  JTs-1 

GO  TO  130 

120  JT=1 

130  M2=m-2 

DO  160  K=^,m2 

MKrM.K 

BMK  =  2.*FLf1*T(MK)*FMl/X-FH 

FM=FM1 

FM1=HMK 

1F(MK-N-1,150,  1«0,  150 

iaO  BJrRMK 

ISO  JT=-JT 

Ssl+JT 

160  ALPHA=ALPmA+BMK«S 

BMKS2.*FM^/K-F^ 

1F(N)  180, 170,  180 

1  70  BJsBmk 

180  ALPHArALPHA+HMK 

BJsHJ/ALPhA 
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690 
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710 
720 
730 
740 
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760 
770 
780 
790 
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SUBRoUTInf  bEsJ 

1F(ABS(BJ.RPWEV)-ABS(0*8J) )200,200,1<>0 
190  BPPEV-sBJ 

1ER=3 
200  RETURN 

tNO 


SEPT. 

77 
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SUBROUTINE  bESK  SEPT.  77 

subroutine  besk 

compute  thfe  k  bess^l  function  for  a  given  argument  and  okoer 

USAGE 

CAL|  BtSK(X,N,BK, l£Rj 

DESCRIPTION  OF  PARAMETERS 

X   .THE  ARGUMFNT  Op  THE  K  HfSSEL  FUNCTION  DFSIRED 
N   .THE  ORDER  OF  ThE  K  8ESSEL  FUNCTION  DESIRED 
BK  IthE  RESULTANT  K  8FSSEL  FUNCTION 
IER.RFSULTANT  ERROR  CODE  WHERE 

TfR=0   NO  ERROR 

TER=1   N  IS  NEGATIVE 

ter=2   X  IS  ZE»0  OR  NEGATIVE 

TER=3   X  ,GT,  170,  MACHINE  RANGE  EXCEEDED 

TER=y   BK  ,GT.  10**70 

REMARK^ 

n  Must  he  greater  than  or  equal  to  zero 

subroutines  and  function  subprograms  required 
nonf 

METHOD 

COMPUTES  ZERO  ORDER  AND  FIRST  ORDER  BFSSEL  FUNCTIONS  USING 
SeRJeS  APPROXIMATIONS  AN0  ThEn  COMPUTES  N  Th  ORQtR  FUNCTION 
USIkjg  RECURRENCE  RELATION. 

Recurrence  Relation  and  polynomial  approximation  technique 
as  ^scribed  rt  a, j, m.hitchcock,  'polynomial  approximations 
to  ressfl  functiuns  of  order  zero  and  one  and  to  related 
functions',  m.t.a.c,,  v  ,  1  1 ,  1 957 , pp , 8&-s8 ,  anq  g.n,  watson, 
'a  treatise  on  the  theory  of  8essel  functions'*  cambridge 
university  press,  195s,  p.  62 


SUBROUTINp  P.ESK  (X,N,8K,IER) 

DIMENSION  T(12) 

BKr.O 

IF  (N)  10,20,20 
10  IER=1 

RETURN 
20  IF  (X)  30.30.40 
JO  IER=2 

RETURN 
40  IF  (X-170'.oi  60,60,50 
50  IERS3 

RETURN 
60  IER=0 


10 
20 
30 

ao 

50 

60 

70 

ao 

90 
100 
1  10 
120 
130 
lno 

ISO 
160 

1  70 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
2R0 
300 
310 
520 
330 
340 
350 
360 
370 
38  0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4ti0 
490 
500 
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SUBHOUTlNp  BEsK 


SEPT.  77 


IF  (X-i , )  j«0# 1^0' 7o 
70  AsEXP(-X) 

8=1.  /X 

CsSQRT(R) 

T(l)sfl 

00    8o  1*2,12 
80  T(L)=T(L-1 )*B 

IF  (N-l)  QO. 110,90 

COMPUTE  ad  IJSING  POLTNOMIAL  APPROX  I  M  AT  I  ON 

9o  G0  =  A*(i,2«;3^l41-.1566to42*T(l  )  +  .08811  1?B*T<2)-. 091390  95  *T(3)*.13u<J5 
lc'6«T(a)-.p?<j9ft50*T(5)  +  >37Q2uio*T(b)-,S<?U7?77*T(7)  +  ,bl37'3  568*T(8)-.a 
2262633*T(Q)+.21«u5l«*T(  1  0  )-.  060*3  0  9  7  7  *  T  (t  1)  +  .  009189  38  3*T(  12))  *C 
IF  (  M  )  <*  0  ,  1  0  0  ,  1  1  0 
100  BKsGO 
RETURN 

COMPUTE  K)     USING  POLYNOMIAL  APPROXIMATION 

110  Gl=A*(  i  .  2s33lun-.U699927,T(  i  ).,  i  46858  3* T(?)  +  .  12*0427*T(3)-.173o4i2 
t*T(a)f.28/i7618*T(S)-,US^a3a?*r(b)>. 628338  i*T(7)-,66322^S*r(8)  +  . 505 
2023^*1(9). #2'>«130«*T(10)  +  . 07  880001  *T(11)-.01082«1««T(U))*C 
IP  (N-l)  40. 120, 130 
120  6KrGl 
RETURN 

FROM  KU.Kj  cOMP'-'TE  KN  USING  RECURRENCE  RELATION 

130  DO  lt>0  J  =  ?,N 

GJ=2.* (FLOAT ( J)-l . )*Gl /X*G0 

IF  (GJ-l.nF.70)  1  50  ,  lbo  ,  1  UO 
140  IER  =  4 

GO  TO  170 
150  G0=Gl 
160  Gl=GJ 
170  HK=GJ 

RETURN 
180  B=X/2. 

A=,5772157+AL0G(B) 

C  =  b*H 

IF  (N-l)  ?90, 220,190 

compute  *n  using  series  expansion 

190  G0=-A 
*2J=1  . 
FACTsl  , 
HJs.O 
DO  200  J=\,b 


510 

520 
530 
540 
550 

560 

570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
660 
690 
700 
710 
720 
730 
7U0 
750 
760 
770 
780 
790 
800 
810 
820 
830 
8ao 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 


190 


200 
210 

220 


SUBROUTINF    PES* 

RJ  =  1 ./FLO»T(J^ 

X2J=X?J*C 

FACT=FACT*Rj*RJ 

HJ=HJ+RJ 

G0=Go+X2J«FaCT*(HJ-&) 

IF  (N)  220,210,220 

BK  =  li0 

RETURN 

COMPUTE  K7  USING  SERIES  EXPANSION 


SEPT.  77 


X2J  =  B 

FACTst  . 

HJ=1  . 

G  1  =  1  ,/X*X?J#(.5*A-Hj) 

00  230  J«?,8 
X2J=X2J*C 
RJsl ,/FLOiT (J) 
F ACT=FACT*RJ*PJ 

H  1  —  H  I  +  W  J 

230  Gl»Gl*X2J*FACT*(.5*(A-MJj*FL0AT(J)) 

IF  (N-l)  no. 2«0, 130 
2*40  BK  =  KJ 

RETURN 

END 


1010 
1020 
1030 

loao 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1  140 

1150 

1160 

1170 

1 1B0 

1  WO 

1200 

1210 

1220 

1230 

1240 

125  0 
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SUBROUTINE    rESY 


SEPT.    77 


subroutine  besy 

PURPOSp 

COMPUTE  THE  Y  PESSEL  FUNCTION  FOR  A  GIVEN  ARGUMENT  AND  OROER 

USAGE 

CA|_|'  r£SY(X,N,UY,  IER) 

DESCRIPTION  OF  PARAMETERS 

X   .THE  ARGUMENT  OF  THE  Y  BESSEL  FUNCTION  DESIRED 
N   .THE  ORDER  UF  ThE  Y  hESSEL  FUNCTION  DESIRED 
BY  IthE  RESULTANT  Y  BESSEL  FUNCTION 
IER.RFSiJLTANT  tRROR  CODE  wh£RE 

lER=0   NO  ERROR 

TER=t   N  IS  NEGATIVE 

JER=2   X  IS  NEGATIVE  UR  ZERO 

TEps3   BY  HAS  EXCEEDED  MAGNITUDE  UF  10**70 

REMARK*? 

VERY  SMALL  VALUES  OF  X  may  CAUSE  THE  RANGE  OF  THE  LIBRARY 
FUNCTION  ALOG  TO  BE  EXCEEDED 

x  must  re  greater  than  zero 

N  Must  be  greater  than  or  equal  to  zero 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONp 

methoo 

recurrence  relation  and  polynomial  aprrcx i m a t i  on  technique 

AS  (^SCRIBED  BY  A  ,  j  ,  M  ,  H I TChCOCk ,  ' POl  YNOM I Al  APPROXIMATIONS 
TO  RESSEL  FUNCTIONS  OF  ORDER  ZERO  AND  ONE  AND  TO  RELATED 
FUNCTIUNS',  M.T.A,C>/  V,  1  1  ,  t957,RP. 86-66,  A*jo  G.N.  wATSON, 
'A  TRFATISE  ON  THE  THEORY  OF  BESSEL  FUNCTIONS',  CAMHKIDGE 
UNIVERSITY  PRE5S,  19S8,  P,  62 


SUBROUUNp  r£SY(X,n,BY,  IER) 
CHECK  FOR  ERRORS  IN  N  AND  X 

IF{N)1«0,7o, 10 

10  IER=0 

IF(X) 190, 190,20 

BRANCH  IF  x  LESS  Than  OR  EQUAL  4 


10 

20 
30 
40 
SO 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
160 
190 
200 
210 
220 
230 
240 
250 
260 
270 
260 
290 
300 
310 
320 
530 
340 
350 
360 
370 
380 
*90 
400 
410 
420 
450 
44  0 
450 
460 
470 
460 
490 
500 
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SUBRqUTInf  RESY 


SEPT.  77 


20  IF(X.«,o>ao,«0,30       ( 

COMPUTE  YO  AND  Yl  FOR  X  GREATER  THAN  H 


30 


Tt  = 
T2= 

P0  = 
1   + 

uo  = 
1  . 

Pis 
1   - 

Ql  = 

1   ♦ 

A  =  2 
BsA 
C  =  X 
Y0  = 
Yl  = 
GO 


Tl* 
((( 

.00 

((( 

.00 

((( 

.00 

((( 

.00 
.0/ 
*T1 
-.7 
A*P 
-A* 
TO 


/X 

Tl 

(-.0 
01  7f, 
(.Oo 
006* 

(.Oo 
02it, 

(-.0 

oiom 

SQRt 


OOOo37oU3*T2t.0OOOl73565)*T2-.O0Ooa87<>13)*T2 
a*)*T2-.ool753o 62 )*T2+. 3989423 
00032312*T2-.OOOOia20?»T*T2t,00003«2a6a3#T2 
979t)*T2*. 000^564 324)*T?-,012«669u 
000424l4*r2-.0000200920l*T2+.0000580759)*T2 
?o3) *T2+. 0  0 2921 826 )*T2+.  3989423 
000036594*T2+.OOU01622)»T2-.00  0  0398708)*T2 
474i)#T2-,00063''0400)*T2+t03740084 
(X) 


853<}fl2 

o*Stn(C)+b*qo*cos(C) 
Pi*rns(C)+B*oi*siN(C) 

90 


40 

xx  = 

X2  = 

T  =  A 

Sum 

TER 

Y0  = 

DO 

IF( 

50 

SUM 

60 

FL  = 

TS  = 

TER 

70 

Y0  = 

TER 

SUM 

Yl  = 

00 

SUM 

Fl  = 

FL1 

TS  = 

TER 

80 

Yl  = 

PI2 

YOs 

Yl  = 

COMPUTE  YO  AND  YJ  FOR  X  LESS  THAN  OR  EQUAL  TO  4 

X/2. 

XX*XX 

L0G(XX,+#5772157 

=  0. 

MsT 

T 

70  LSI. IS 

L-l )50  60#50 

sSUM+1 ./FLOAT(L-l) 

L 

T-SUM 

Ms(TFRm«(-X2)/FL**2)*(!,-1./(Fl*TS)) 

yo+tehm 

M  '  XX*(T-.5) 

=  0. 

TERM 

80  L=2  16 

sSUM+1 ./FLOAT(L-l) 

L 

=FL-1. 

T-SUM 

Ms(TERM,f-X2)/(KLl*FL))*((TS-.S/FL)/(TS*.b/FLl)) 

Yi+TERm 

=, 6  366f 9 ft 

PI2*Y0 

-PI2/X+pt2*Yl 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
7a0 
750 
760 
770 
780 
790 
800 
810 
820 
830 

sao 

850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
9t>0 
970 
9bO 
990 
1000 
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SUBRfHJTlNP  BESY 

CHECK  IF  DNL^  YO  OR  Yi  IS  DESIRED 

90  IF(N-I)  too,  100,  130 

RETURN  EITHER  YO  OR  Yl  AS  REQUIRED 

100  IF(N) J  10, 120, 1 10 
110  BY=Yl 

GO  TO  170 
120  BYsYO 

GO  TO  170 

PERFORM  RECURRENCE  OPERATIONS  TO  FIND  YN(X) 

130  YA=Y0 

YH  =  Y1 

K=l 
140  T=FLOaT(2*K)/X 

YC=T*YH-Y4 

IF(ARS(YC,-i ,0E70)ia5, 1«5,1«1 
1  a  1  IER  =  3 

RETUPN 
las  KsK+1 

IF(K-N)i5n,ibo, 150 
150  YAsYB 

YBsYC 

GO  To  140 
160  BY=YC 
170  RETURN 
180  IER=1 

RETURN 
190  IER=2 

RETURN 

END 


SEPT.  77 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 

I  100 
1110 

I I  e;o 
1130 
1140 
1  IbO 

1  160 

1  170 
1  180 
1  190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
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SUBROUTINE  cPpRNT  SEPT.  77 

SUBROHTINp  cPPHKlT  (THETA,  AMACH,AL,  ACL/ THMAX,MAXK,MAXP,NMAX,MMAX,  A8  10 

1AR,HHAR,EPS,AN,BN,N,XMIN,XMAX,R,DENGAM)  2  0 

DIMENSION  ArAR{  1  )  ,BRAR(  1  )  ,  AN(1  )  ,t!N(  1  )  30 

c     Routine  Tn  print  phi,umv,cp  at  n+j  locations  along  x  for  specified  ao 

C      TheTa  SO 

C      IF  R  s  0  TS  INPUT,  R  IS  CALCULATED  AS  TURRET  SURFACE.  OO 

C       IF  R.GT.O  IS  INPUT,  THAT  R  IS  USED  IN  CALCULATIONS,  70 

IR=0  BO 

IF(R.GT,0'.)  IR  =  1  90 

WRITE  (6,?o)  THETA, AMACH  100 

DX=(XMAX-*MT*)/FLOAT(N)  110 

X=XM1N-0X  120 

NP1=N+1  liO 

DO  10  1=1. NPl  140 

X=X+OX  150 

IF(IR.EO.O)  CALL  RSURF( A8AR,BBAR,FPS,MAXK,MAXP, X, THETA, AL, THMAX,R)  lbO 

Call    pHiUy    (X, ThETa.w, amaCh» *l> *Cl t  Thmax,maxk» mAxp,nmAx,mmax, abah,  wo 

1BRAR,EPS,  an,«N,PHI,IJ,  V)  1B0 

CP=-2,*U-v*«2  1^0 

10     WRITE  (o,3o)X,R,PHI,IJ,  V,CP  200 

C      CRITICAL  PRESSURE  COEFFICIENT.  210 

CPSTAR  =  2.*(1.  +  .5*(DENGAM-l.)*AMACH*AMACH)/f  D£fJ*/>H  -hi.  )  220 

EXl=OENGAM/fDENGAM-i , )  2i0 

CPSTAR  =  2.«rCf,STAR**EXl-l,)/(DENGAM*AMACH*AMACH)  24  0 

wRITE(b»Uft)CpSTAR  250 

40     K0RMAT(/5x,a2HCRlTlCAL  PRESSURE  COEFFICIENT  ON  SURFACE  =,F10,5)  2&0 

RETURN  270 

C  2B0 

20     F0RMaT(//^/5X,22hFL0w  FIELD  FOR  ThETA  =,F7.3,SH  DEGREES//  290 

*  5X,22HMArH  NUMBER            =,F7,^//10X, 1HX,  300 

110X,  1HK,9Y,"$HPHI,  1  IX,  lHU,HX,tHV,lOX,2HCP)  310 

30     P0PMAT(5X.6E1 1 .a)  320 

END  330 
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subroutine  oopi 


SEPT,  77 


SUB"0UTINF  oOPL  (X,R,  THETA,EPSM,Xm,PhI  ,GAMMa,RhO,  Y,  Z,PHIPP,IJ,  V,CP,  10 

1A8aR,BBAR#aL»ACL,ThMAX,EPS,«INDEX,RB,ETA,AN,BN,MAXK,MAXP,NMAX,MMAX  20 

2,KTRAP,A,q,T,ntL0PL#TDENRT,D£NGAM,AMACH»DFNPT0,AKPRlM,0E.|_PLA)  30 

Dimension  abaru  j,bhar(i  )»an(i  ),bnU),tci)  <4o 

C       ROUTINE  Tn  CALdLATF  CHANGE  IN  OPTICAL  PaTH  LENGTH  B  *  INTEGRATING  50 

C      THE  INDEX  df  PEFRAqTION  -  1.0  fROm  0.0  TO  A  and  A  T0  9.  60 

C       BY  G.  N.  vanDERPLAATS                              NOV.,  197b,  70 

C      NAVAL  POSTGRADUATE  SCHOOL,  MONTEREY,  CALIF.  80 

C  90 

C       INTEGRATE  F°fM  ZfcRO  TO  A  FOR  CONSTANT  PRfcSSURE.   DENSITY  100 

C      RATIO  s  TnE^RT.  1  10 

DELOPl  =  AKpf?iM*TDENRT*A  120 

0ELPLA=Ofc|  nPL  130 

C       KTRAP  s  M4X.  NUMBER  OF  TRAPEZOIDAL  SOLUTIONS,   MAX  NO,  OF  INTERVAL  1«0 

C      IS  2**(kTrap-1)  150 

N2=l  lbO 

DO  30  K=1,kTRaP  170 

IGOTOsO  180 

10  CALL  TKAPpM  (IG0T0, A,H,N2,RH0,RINDEX)  190 

IF  (IGOTu'fQ.O)  GO  TO  20  200 

c     index  of  pefract10n  -1.  210 

Call  refind  cx,r, the ta,epsm, xm, phi, gamma, rho,y, z,phipp,u, v,cp, abar  220 

1,bbar,al,acl»thmax,eps,Rinoe<,rb,eta,an,bn,maXk,maxp,nmax,mmax,den  230 

2GAM, AMACri.DFNRTO* AkPRIM)  2«0 

GO  To  10  2b0 

20  T(K)=RINDfx  2b0 

30  N2=2*N2  <?70 

C       ROMBERG  IkjTFGRATION.  280 

K 1 = 1  290 

call  rmri^t  (t,ktrap,kij  300 

OELOPL=OE|  nPL*T(l )  310 

RETURN  320 

End  330 
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20 
10 

c 


40 
30 


SEPT.  77 


nAXKPJsMAyK+1 

DO  10  MsI.mmAX 

CALL  FXU1k(M,maxk,AL,ACL,AN,8N) 

00  20  1  =  1  ,H4XKK1 

AMX(I,M)=4N(I) 

BMX(I,M)Sf,M(I  ) 

CONTINUE 

COEFFICIENTS  ON  THfcTA. 

MAXPP1 sMAyp+l 

PI=3.iai5o?7 

NMAXP1 =NMAX+1 

DO  30  NPl=t,NMAXPl 

NsNPl-1 

CALL    FXTOtc(N#MAXP,THMAX,  Pl,AN,BN) 

00    UQ     Isl.MAXPPl 

ANT(I,NP1)=AN(I ) 

CONTINUE 


RETURN 

END 


10 

20 

30 

40 

50 

oO 

70 

SO 

90 

100 

110 

120 

130 

140 

ISO 

lt>0 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 
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SUBROUTINE  pXTOK 


SEPT.  77 


subroutine  f 

DIMENSION  an 

c 

NOUTiNE  Tn  C 

c 

EXPANSION  OF 

c 

FORM  OF  FnilP 

c 

y  =  Sum 

c 

BY  G.  N,  VAN 

c 

NAVAL  POStg» 

c 

c 

INPUT. 

c 

N  -  OFSIRpf) 

c 

K  -  HIGESt  0 

c 

XI  -  1/2  |NT 

c 

X2  -  1/2  SPA 

c 

OUTPUT. 

c 

AN  -  VECTnw 

c 

the  rnp 

c 

FOR  IsO, 

c 

BN  -  VECTOR 

c 

coeftci 

c 

FOP  IsO. 

c 

NOTE  -  ALTHOUGH 

c 

coeftcients 

c 

ALSO  r>ROVTDE 

c 

CaLCULATImG 

c 

c 

Constants'. 

PI=5.14!5q?7 

KMP1 =K+  1 

IF  (N.GT.ft) 

c 

SPECIAL  CASt'. 

c 

A (N, K)  ANA  B 

c 

RESPtCTlVF,  y 

c 

A(0,K)  =  .5* 

c 

8(0, K)   =  o 

SIGN  =  -1  . 

Cl=.5/X2 

00  10  KPl  =  t  , 

ClrCl*Xl 

AN(KP1  )=C7*( 

SIGNs-SIGm 

10  BN(KP1  )S0'. 

RETURN 

c 

GENERAL  CASE'f 

c 

A(N,K)  a  f x1 

c 

fK* 

c 

8(N,K)  a  (x\ 

c 

[k* 

c 

WHERE  A(N,-i) 

c 

PI  =  *.l 

XTOK  (N.K.X1 ,X2/ AN.8N) 

(l),BN(l) 

ALCULATE  THE  NTH  FOURIER  COEFICIENTS  FOR  THE 

1,  X,  X**2,   .  ,  ,  X*«K  , 
IFR  SERIES  IS 

(AN(*M )*COS(NH)  ♦  BN(K*1 )«SIN(NX) ) ,  N  =  0,1,2.,  INF, 
UFRRLAATS  OCT,  22,  1976 

AOUATE  SCHOOL,  MONTEREY,  CALIF. 


FOURIER  COEFICIENT, 

ROER  EXPONENT  ON  X  FOR  WHICH  AN  and  BN  ARE  RtUUlRED. 

ERVAl  OVER  »hICh  X**k  IS  e*PAnL)F.O. 

CING  BETWEEN  EXPANSIONS, 

OF  A-COFFTClENTS  FOR  FOURIER  EXPANSION,   THE 

FICIEM  FOR  X*»I  IS  STURED  IN  THE  Itl  LOCATION  OF  AN, 

1  ,  2,  ,  ,  ,  K, 
OF  H-COEF iClE^fS  FOR  FOURIER  EXPANSION,   Th£ 
FNT  FOR  X.«I  IS  STORED  IN  THE  1+1  LOCATION  OF  BN, 

1,   2,   .   ,   .   K, 

ONLY  THE  COEPICIENTS  FOR  X**K  MAY  BE  REQUIRED,  THE 
FOR  EXPANSION  UN  1,  X,  X**2,  .  .  X**(K-1)  ARE 

d  since  these  are  obtained  as  a  conseouence  of 
the  required  INFORMATION, 


GO  TO  20 

N  s  0. 

(N,K)  APE  THE  FOURIER  COEFICIENTS  A-SUB-N  ANO  B-SUB-N 

FOR  Thf  fXPANSIUN  X*«k,  K  =  0,  I,  .  .  . 
(Xl*»(K*i))*(l*(-l)«»K)/(X2*(K*l)) 


KMP1 
l.-SIGN)/FLOAT(KPl ) 


N.GT.O. 

*«K)«(l+(-l)**K)*SIN(M»PI«Xl/X2)/(N*Pl)  - 

X?/(N*PI ) ) *B(N,K-1 ) 

•*K)*(-t*(-l )**K)*C0S(N*PI*X1/X2)/(N*PI)  ♦ 

X?/(N«PI ) ) *A(N,K-1 ) 

=  B(N.,-1  )   =   0 

J15927 


10 

20 
iO 
40 
SO 
60 
70 
60 
90 
100 
110 
120 
130 
140 
150 
loO 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
260 
290 
30  0 
310 
320 
330 
340 
350 
360 
370 
360 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
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SUBROUTlNp  fxtok 

SOLUTION  RFGlNS  WITH  K  =  0  ANO 
TO  CALCULATE  A(N,K)  AND  B(N,K), 


SEPT,  77 

USPS  THE  ABOVE  RECURSION  FORMULAS 


CONSTANTS', 

20   anpi=float(m)*pi 
anpix=anpt**1/x2 
Smi=stn(  *kiptx)/anpi 
CS1=C0S(  Ak,ptx)/AnPI 
K    =    0. 

ANU)=2.*SN1 
t»N  t  I  )rO, 

IF  (K.EQ.rt)  RETURN 
K  =  1  ,  2,  .  .  K 
SlGNs-1 . 
CC=X2/ANPi 
C1  =  1. 

DO  30  KN=?,kmP1 
KsKN-1 
Cl =C  1  »X1 
C2=FLOAT(K5*Cr 

AN(KN)=C1«(1.+SIGN).SN1-C?*BN(K) 
BN(KM)=Cl*fSlr,N-l.)*CSl+C2*AN(Kj 
30  SIGNs-SIGn 
" RETURN 
END 


510 
520 
530 
5<40 
550 
5o0 
570 
5ao 
590 
600 
610 
620 
630 
640 
650 
660 
670 
6B0 
690 
700 
710 
720 
730 

7ao 

750 
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SUBKOUTINF  FXY3U 


SEPT.  77 


1° 
C 


SUBR 
DIME 
ROUT 
FUNC 
BY  G 
NAVA 
•INPUT. 
N  . 
X,Y 
Z  . 

z 

•OUTPUT 
I    - 
IF 
IF 
N£R 


DIME 

NOIM 

NRHS 

INSU 

IF(N 

1F(N 

SET 

DO  1 

AA(I 

AA(  I 

AA(I 

AA(  I 

SOLV 

Call 

IF(N 

RETU 

End 


OUTINp  FXY3a(N, X, Y,Z,N£R) 

MSION  x(  1  )» Y(  1  ) tli  1  ), AA(4,U) 

INE  Tn  CALCULATE  The  COEFFICIENTS  OF  a  POLYNOMIAL 

TIUN  nF  Z  IN  X  ANO  Y, 

.  N,  yjNDEHPLAATS  MAY,   1977. 

L  POSTr,»AOUAlt  SCHOOL,  MUNTERpY,  CALIF. 

NI.IMBEo  OF  INTERPOLATION  POINTS  (N  =  3  OR  4). 

-  X  A>,r>  Y  COORDINATES,  1=1,  N, 
Z  =  F'f*,Y)  s  FUNCTION  VALUES, 
IS  DESTROYED. 

POLYNOMIAL  COEFFICIENTS. 
N  =  t,,     r  r  Z(l)  ♦  Z(2)*X  ♦  Zf3)*Y. 
N  =  a.     Y  =  Z(l)  ♦  Z(2)*x  ♦  Z  C  3  5  *  Y  ♦  Z(a)*x*Y. 

-  error  Indicator,  o  =  no  error,  ner.gt.o  =  error  due  to 

TWn  x,Y  POINTS  ARp.  THE  SAMp  OR  ThH£.E  X,Y  POINTS  ARE 
CO|  imEaR. 


ION  OF  aa  matrix  and  number  of  RHS  vectors  FOR  EQUATIONS. 


n  -  3  nR  u. 
T.3i  N=3 
T.a^  Kizn 

COpFFlClENT  MATRIX  FOR  SIMULTANEOUS  EQUATION  SOLUTION, 
1  =  1, N 

)  =  ' . 
)=xfn 

)sXf i)*Y(I) 
EOUiTTONS. 

ELIm?(A4,z,n,nRhS,nOIm,ndIm,ndIm,nrhS,ner) 
Q.3>  "z(a)=o. 


10 
20 
30 
40 

50 

60 
70 
dO 
90 
100 
I  10 
120 
130 
1U0 
150 
160 
170 
160 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
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SUBROUTINF  G£lI«2 


SEPT.  77 


10 


s 

D 

S 
13 
B 

A 

N 

I 

N 

E 

I 
D 
K 
H 

0 
F 
A 
1 

D 
I 
B 

I 

A 

I 

c 

I 

K 
P 
K 
A 
D 
A 
0 
40  B 
E 
L 
0 
I 
B 
I 
I 
0 
A 

c 

0 
70  B 


20 


30 


50 
60 


80 
90 


UB« 
I  ME 
OLU 

V  G 

Y  G 
=  C0 
=  N0 
F  N 
ER  = 
PS  = 
HI  T 
0  1 
(I) 
EGI 
0  9 
INO 
A  =  0 
1=0 

0  2 
F  ( 
B  =  A 
F  ( 
A  =  B 

1  =  1 
ONT 
F  ( 
(II 

I  vo 

EDU 
Asl 
0  3 
(II 
o  a 
(II 
LIM 

1=J 
0  8 
F  ( 
B  =  A 

F  ( 
F  ( 
0  5 
(I. 
ONT 
0  7 

(If 

ONT 
ONT 
F-0 
EMP 


OUTINp  GELIM2  (A,b,n,nlC»hi,m2/M3,h«,nER) 

NSION  a  f M I  ,M2)  ,B(M4,M4),K(  10) 

T10N  rip  SIMULTANEOUS  EQUATIONS  WITH  MULTIPLE  CONSTANT  VECTORS 

AUSS  pLjMiNATION,  IjSlNg  PIVOT  SEARCH. 

.  N,  vamOFRPLAaT3,     9-25-70 

EF,  MATRIX     BsMATRIX  CONTAINING  NLC  CONSTANT  VECTORS 

.  OF  (tDUaTIONS      Ml  4N0  M2  aRE  DIMENSIONS  aS  GIVEN  ABOVE 

ER  =  1  fiN  RETURN,  A  IS  SINGULAR, 

1 

1.0E-?o 

ulizf  k  to  zero 

0  1  =  1  ,N 

=  0 

N  ELIMINATION 
0  J=l  ,u 
BEST  PIVOT  ROW 


0  1  =  1  ,N 

K(I)  .NF.O)  GO  TO  20 

BS(A(t,J) ) 

bB.LE' AA )     GO  TO  20 


INUE 

II.  EO'  o.OR.AA.LE.EPS)  RETUHN 

)=J 

T  ON  POSITION  A(II,J) 

CE  A(n,J)  TU  IDENTITY 

./A(ITf J) 

0  L=J,N 

»L)  =  Af  H/L)*AA 

0  L=1.NLC 

/U=8f  H,L)*AA 

.  COEf.  OF  J1H  COL.  FOR  I.NE.H 

♦  1 

0  I  =  1  ,  M 

1  .EQ.TH  GO  TO  80 
(I, J) 

ABS(BR) .LE.EPSj  GO  To  80 

LI.GTn)  GO  TO  bO 

0  L=Lj,N 

L)=A(T,L  )-A(II,L)*BB 

INUE 

0  L=I ,NLC 

L)=B(t,L )-B(II,L)*BB 

INUE 

INUE 

RDER  VARIABLES  TO  ORIGINAL  POSITION 

ORARI,  y  STURE  SOLN,  MATRIX  IN  A 


10 
20 

30 

ao 
50 
00 

70 
8  0 
90 

tu>> 

1  10 
IdO 

130 

la  i) 

150 
loo 
170 
180 
190 
200 
210 
220 
23o 
240 
250 
2o0 
270 
280 
290 
30  0 
310 
320 
330 
3ao 
350 
3oO 
370 
380 
390 
400 
4  1  0 
420 
4  30 
440 
450 
400 
4  70 
480 
490 
500 
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SUBROUTINE    gEH*2 

DO    100     I»1. N 

DO    100    J=1 ,NLC 
100     A(I, J)sH(T, J) 

STO«E    VALiiF*    «*CK 
00     110     1  =  1  ,N 

LsK(I) 

00  110  J=5 .  nLC 
I  10  B(L, J1=A(! , J) 
N£K=0 

RETURN 
END 


SEPT.  77 


IN  P  IN  PROPER  OKDER 


510 

sao 

530 
Sao 
550 
560 
570 
580 
S90 
600 
610 
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SUBROUTINp  IZERN 


SEPT.  77 


20 
10 
C 


StJRPOU 

DIMENS 

KOUTin 

FIRST 

BY  G. 

NA  V*L 

IF  IP8 

THE^FF 

IF(IRR 

DO  20 

A(I)=0 

CONTIN 

KADlAL 

«I(1)= 

IR8 1 = I 

IF(IRB 

RI(2)  = 
«I(3)= 
ETA  CO 
TlO)  = 
TI(2)= 
IET»1= 
Tl(i)= 
IF  (  It T 
TI(U)= 

phase 

N1=(I» 

N2  =  Wj  + 

IF(  IET 
NqsNl + 
IF(IET 
POK1) 
IF(Ni, 

P0I(2) 
P01(3) 
PDI(4) 
IF(N1. 

calcul 

N  =  4 

IF(IWB 
CALL  F 
INTEGR 
R 1 =» I f 
T2  =  T  I  c 
H2  =  BH 
T3sTl( 
*Z=PDI 
»1=PDI 


Uf    iZeRN<IKB»RHI,IETA,E.Tai,NETA,R,PD»A) 
N  RflI(l),ETAIn),PD(l),A(l),RI(«),Tl(U),PDI(4) 
Tn  CALCULATE  ZERNICKE  FUNCTIONS  OF  SECTION  OF  BEAM  WITH 
Of  tRB'  IETA, 
VA'lOFRPLAATS  MAY,  1977, 

stgraquate  school*  Monterey,  calif. 

]     aN0  ieTa  =  1,  THIS  IF  THE  FIRST  CALL  TO  IZERN. 
E  ZF*0  OUT  VECTOR  A, 
T'  i .OR.ItTA.GT,  1)  GO  TO  lo 
1*10 


OoROlNATES. 


T.l  )  Rl(n=RBI(lRBl) 

(1  ) 

If IRB) 

(?) 

D  T  M  A  T  E  S  . 

at(TEta) 

(1) 

T  a  ♦  1 

AT  f  )  )+6, 2831854 

Lt.nETA)  TI(3)=ETAI (IETAi) 

StorTion. 

2^  *nETA+I£TA 
T* 

Eq.nETA)  N3=N3-NETA 

Eq.nETA)  nu=nu-neTa 

,c\)    PDKl)sPO(Nl) 

DfN?) 

OfN3) 

,rt)  PDI (a^sPDtNU) 

E  interpolation  coefficients. 


.EU.l)  N=3 

XY3a(N,Rl , TI,POI,neR) 

A  T  I  n  m  . 

1  ) 

2) 

2) 

3) 

(1) 

(2) 


10 
20 

30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
38  0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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Subroutine  tZern 


sept,  77 


A2=PDI(3) 
A3=PDI (flj 
CALL.  ?£RN'fB,Ki,R2,T2,T3,AZ,Al#A2,A3,A) 

RETURN 
END 


510 
520 
530 
540 
550 
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SUBRqUTInf   phoist 


SEPT.    77 


SUBROUTINE  PHOIST 

IP,  ABaR,BBaR,  A(_,  ACL 

2AX,KTRAP,4fR,T,0tL 

3»netai,nr„t,Tdenrt 

DIMENSION  iBAR(l), 

1  )»PHH  (  1  )  .prjlSTI  (1 

DIMENSION  aT(32),X 

c 

Routine  Tn  c4lcula 

c 

ORIENTATION. 

c 

BY  G,  N,  VANDFRPLA 

c 

naval  post  gRaduaT 

c 

REFOPL  s  REFERENCE 

NEXTRA=3 

c 

BEAM  ORIEwTATTON, 

PHlsPHII  (TF(FAM) 

GAMMasGAMma I ( TBEAM 

Al=57.2<'57ft*PHl 

A2=57.29S7A*Gamma 

IF(IPRINT'.GT.O)  "P 

c 

calculate"rffeRenc 

R8  =  0. 

ETA=0. 

c 

TURRET  SUrfaCF  INT 

CALL  SRFIkjT  (XM,EP 

1XK,MAXP, A, , THMAX) 

AIREf-=A 

c 

Reference  change  i 

call  oupl  (x,r,the 

t  tjAR,  AL#  AC|  •  THMAX,  e 

2#  A#B,T,nE|'oPL,TDEN 

REFDPL=DE|  OPLtRFUS 

Al=57.2<?S7fl*ETA 

A2  =  0. 

XP(l )=0. 

TP(1)=0. 

ZP(J)=0. 

lF(IPRINr gT.O)  »R 

c 

CHANGE  IN*p4Th  LEN 

c 

RB  AND  ETa. 

c 

INCRIMENT  pr. 

NN  =  0 

MMi  1 

DO  60  IR8=t,NRBI 

»8=RBI(IRr) 

c 

INCREMENT  ftA, 

DO  50  IETi=i ,NETAI 

ETAsETAI (TFTA) 

c 

SURFACE  INTERCEPT. 

call  srfimt  cxm,ep 

1XK, HAXP, At  , THMAX) 

(X,R,T HE TA,EPSM,XM, PHI, GAMMA, RHO,Y,Z,PHlPP,U,V,C 
,  THMAX,EPS,RINDEX,RB,ETA,AN,BN,MAXK,''1AXP,NMAX,MM 
OPLM^EAM.REFOPl^AVELiRFUS^ETAj^BI  ,  GAMMA  I,  PHI  I 
,POtSTi,DENGA*,A'1ACH,DENRTO#AKPRIM,IPRINT,IPLOT) 
BRAR(l),AN(t),BN(l),I(l),FTAI(l),RriI(l),GAMMAl(l 

) 

P(  100)  , YP( 100) ,ZP( 100) 

TE  PHASE  DISTORTION  FOR  THE  IBEAM  TURRtT 

ATS  NOV.,  1976 

E  SCHOOL,  MONTEREY,  CALIF. 
DELTA  PATH  LENGTH  ALONG  CENTER  OF  BEAM, 


ITE(6f90)  IBEAM, Al ,A2, AMACH 
E  PHASE  DISTORTION, 


ERCEPT. 
SM,PHl,GAMMA,A,RB,ETA,X,R,THETA,ABAR,8bAR,EPS,MA 


N  PATH  LENGTH  OUE  TO  DISTORTION, 

TA,EPSM,XM, PHI, GAMMA, «HO,Y,Z,PHlPP,U,V,CP,ABAR,B 

PS. R  INqEX, Rb#ETa, An, rn,maxk,mAxp,nmax,mmax,k TRAP 
RT,dengam,amach,denrto,akprim»delpla) 

/WAVEL 


ITE(6, 100)RB, A1,A2, A2, A, A? 

GTH  D^E  TO  DISTORTION  FOR  SPECIFIED  VALUES  OF 


Sm,PhI,GAMMA,A,RB,ETA,X,R,THETA,A8AR,BBAH,£PS,MA 


10 
20 
30 
40 
50 
60 
70 
60 
90 
100 
110 
120 
liO 
140 
150 
160 
170 
160 
190 
200 
210 
220 
230 
240 
250 
2&0 
2  70 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
3B0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
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10 


20 


30 


SUBROUTlNp  PHOIST  SEPT,  77 

CHANGE  IN  p&fH  LENGTH  QUE  TO  DISTORTION, 

CALL  DOPL  (X,R,THETA,EPSM,XM,PHI,GAMMA,«H0,Y,Z,PHIPP,U,V,CP»A8AH,8 
jjAR,AL»*Cl  ,THMAX,EPS,PINnEX,HB,ETA,  AN,t3N,MAXK,MAXP,N*(AX,MMAX,KTWAP 
!»A#8,T,DE|0PL,T0ENRT,DENGAM,AMaCH,DENRT0,AKPRIM,DELPLA) 
DPL=OELOP| ,PFUS/«AVEL 
NNsNN*l 
MM=MM+ 1 
AT (NN) =A 
PDlSTI(NN1=nPL-«EFOPL 


CHA 

CAL 

ltfAR 

2'A 

DPL 

NNs 

MM  = 

M( 

POI 

Al  = 

XX  = 

YY  = 

XP( 

YP( 

ZP( 

IF( 

IF 

IF 

X  1  1 

Til 

DPI 

ETA 

GO 

INT 

NCO 

*M1 

XP( 

YP( 

ZP{ 

DET 

DPO 

Dx  = 

0Y  = 

CON 

IF 

IF 

DO 

ETA 

XX  = 

YY  = 

XP( 

YP( 

ZP( 

MMs 

NCO 

IF 

IF 

DET 

POI 

DPD 


NGE  IN 
L  DOPL 
/AL» AC| 

8,T,DE| 

=  DELOP, 

NN*1 

MM+1 

NN)  =  A 

STI (NN, 

57.2957 

RB*SlNf 

RBoCOSf 

MM)sXX 

MH)=YY 

*M) sPDj 

I  P  R  I  N  T  \ 

(IRB.LT 

ClETA,fi 

=XP(HM, 
=YP (MM^ 
1=PDISt 

h=eta; 

TO  UO 

ERPOLAT 
UNTsO 
=MM+NEy 
MM1 )  =  Xp 
MM1 )=Yp 
MMl )rZp 
As(ETA. 
=PDISTT 

XP(MM). 
YP(MM). 
TINUE 

(ABS(Dy 
(AHS(Dv 
30  INT= 

i=ftai; 

RH*SlNf 
RR«COSf 
MM)=XX 
MM) rYY 
mm)=P0t 

UNT=NCn 
(IETA.i 

(NCOUNj 
A=(bTAj 

ST1=PDt 
SDP1 1-P 


=nPL-«EPDpL 

8*ETA 

ETA) 

ETA) 


STI(NN) 

GT.O)  "RITt(6,100)RB,Al,XX,YY,A,PDISTl(NN) 

#N«RI)  GO  TO  ao 

f. 1)  GO  TO  10 


IfNN) 
6.2831854 

F  FOR  MORE  HOUnDARY  POINTS, 

TPA 

(UM) 
(MM) 


I) 


ETA1 )/(FLOAT(NEXTRA)+l ,) 
(^N)-PDISTi 

XT  M 
YTH1 

)  .LT.  1  .0E-1O)  DXsl.OE-lO 

)  .LT.  1  .OE-10)  DY=1,0E-10 

j  ,N£XTRA 

DETA 

ETAt  ) 

FTA1) 


STUDPD*(YY-YIM1  )/DY 

IINT  +  1 

T.N£TAI)  GU  TO  UO 

,GT, 1 )  GO  TO  ao 

f-ETA)/(FLOAT(NEXTRA)*i.) 

STI (NN) 

OlSTl 


510 
520 
530 
540 
550 
5o0 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
660 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
9<40 
9S0 
9o0 
970 
980 
990 
1000 
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SURROUTINp  pHOIST 


SEPT.  77 


40 


50 
60 


62 


63 


E 
X 

1 

o 

D 

h 

G 
C 
E 
P 
X 
Y 
C 

c 

M 
M 
G 
I 
I 
C 
V 
K 
0 
D 
C 

H 

F 
*9 


TA1=£ 
IM1  =  X 
IMlrV 
XsXH 
Y  =  Y11 
M  =  MM  + 

0  TO 
ONTIN 
TA1=E 

01  ST  1 
IMlrX 
IMlsY 
ONT  in 

0  N  T  I  M 
M  =  MH- 
HI  =  57 
AHMas 
F  (IP 
F  (IP 
ALCUL 
ECTOR 
8MAX  = 
0  62 
0  62 
ALL  I 
RITE( 
ORMAT 

htilt 

9HAST 
ETURN 


TA 

P(M 
P(M 
-XI 
-YI 
1 

20 
UE 
TA 
=  PO 
P(M 
PCM 
UE 
UE 
1 

.29 
57. 
LOT 
RIN 
ATE 
IP 
RBI 
IRH 
IET 
ZER 
6,  O 
(// 
,  X 
IG 


M) 
Ml 
Mt 


TSTI(NN) 
Ml 


S7«* 
?957 
'.CT. 
T.E« 

ZE« 

TS 
fNPH 
*1#N 
Art  , 

n(T* 

^)CZ 

/5X» 

=  .E 


PHII  ( 

H*GAM 

0)  CA 

.0)  R 

NIOE 

USED 

T) 

RBI 

NETAI 

H»RWI 

P(I)» 

22HZE 

13.5, 

2E13. 


IPEAM) 

MA  I ( I  BE  AM) 

LL  maPS  (MM, PHI, GAMMA, NETAI ,NR8I, XP,YP,ZP) 

fcTURN 

CUFFFICIENTS. 
TO  STOKE  ZERNICKE  COEFFICIENTS,  A, 


,  ILTa/EtAI/NETaT»R9MaX,PDISTi,ZP) 

1=1,10) 

RNICKE  CUEFFIClFNTS//5x,9HAVERAGE  =,E13.5/5X, 

10x,3hy  =,E13,5/5X,9HFoCUS    =,F13,5/5x, 

5/5x,9hC0Ma     =,a£i3,5) 


90  -F 
IT 

* 

*1 
*1 

100  F 
E 


ORMAT  (////5X>29HPhaSE  DISTORTION  C  ALCUL  A  T  I  0NS//5X  ,  25HbE  AM  0RIENTA 
ION  NUMflpR  =, I5/5X,25HAZMUTM  Angle  =,FlO,2,flH  DEGREES/ 

5X,25heLcvaTI0N  ANGLE  =,Fl0.2,flH  DEGREFS/5X, 

1HMACH  NumrER,  t3X,lns,FiO,2/10X,  tHR,9X,iHETA,8X,  1HX,HX,1HY,11X, 

HA,  1  1  X,  1HN) 

ORMAT  (5x,Fl0.<l,2X,F7.2,6El2,4) 

ND 


1010 
1020 
1030 
1040 
1050 
lOtoO 
1070 
1060 
1090 
1100 
1110 
1  120 
1  130 
1  140 
1  150 

I  UO 

II  70 
1  100 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
12o0 
1270 
1200 
1290 
1300 
1  310 
1320 
1330 
13«0 
1  550 
13o0 
1370 
1  500 
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SUBROUTINE  PMIUV 


SEPT,  77 


SUB 
1,  A8 

DIM 

ROU 

VEL 

BY 

NAV 

Con 

OEL 
DEL 
BET 
BET 
BET 
PI  = 
BPI 
BPI 
NMA 
INI 

phi 
u=o 
v=o 

CAL 
M  . 

DO 
AM  = 
AMP 
AMP 
IP 
SUB 
K-b 
Nsl 
CAL 
CAL 
NsO 
CAL 
CaL 
60 
10  CON 
SUP 
J-B 
PRE 
Nsl 
CAL 
CAL 
BJH 
BJN 
NsO 
CAL 
CAL 


ROUTINp  PHIUV  (X,ThETa,R,AMaCH,AL,ACL#THMAX,MAXK,MAXP,NMAX,MMAX 

AR,BBAr,ePS,AN,BN,PHI,U,V) 

ENSION  AflAR(l),BBAH(l),AN(l)»BN(l) 

TINE  Tn  CALCULATE  POTENTIAL  FUNCTION,  PHI,  AND  PERTURBATION 

OCITIES  U  AND  V. 

G.  N,  vanDFKPLAATS  OCT.,  1976 

AL  POSTGRADUATE  SCHOOL,  monTEHfY,  CALIF, 


STA 
1  =  1 
2=1 
A=l 

AsA 
A  =  S 

3.1 

L  =  8 
RL  = 
xj  = 
TIA 
=  0. 


CUL 
LO 
40 

flo 
il  = 

IRL 

(AM 

SON 
ESS 


NTS' 

,oe] 
,oe; 

.  ■  Am 
BS(r 
QRTf 
4l5o 
ETA, 
BPIl 

NM  Ay 

LIZp 


a 
a 

ACH**2 
ETA) 
RFTA) 
?7 

pt/acl 

*R 
♦  1 
PHI,  U 


AND  V, 


ATE  POTENTIAL  AND  VELOCITIES. 

OP. 

M=l ,MMAX 

AT(m) 

AM*RpT.L 

=AM,floIRL 

ACH'  GT.l  .)  GU  TO  10 

IC. 

EL  FUNCTIONS  FOR  Nr-1  AND  NsO, 


L  BESK  caMPIRL,n,8kRN, IER) 
L  RESK  (aHPIL,n,bkn, IEW) 

L  BESK  (AMPIRL, N,BKRNP1 , IER) 

L  BESK  (AMPIL#N,8KNP1 , IER) 

TO  20 

TINUE 

ERSONIp. 

ESSEL  fi'inCTIOnS  FOR  Ns-1  ano  NsO, 

ClSs.Oool 

L  BESJj- amP  TKL,N,R  J  PN,  PRECIS,  IER) 
L  BtSJfAMPTL,N,bJN, P»EC1S, IER) 
Ns-HJRkj 
S-RJN 

L  BES  J 'f  AMPlRL,N,BJRNPl  ,  PRECIS,  IER) 
L  BESJf A"PTL,N,bJNPl , PRECIS, IER) 


10 
20 
30 

40 
50 
60 
70 
BO 
9  0 
100 
110 
120 
130 
140 
150 
160 
170 
160 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
3«0 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
400 
470 
480 
4V0 
500 


208 


SUBKOUTlNp  pHIUV 


SEPT,  77 


25 

C 


27 
C 


T-BES 
M=l 

call 

CAUL 
BYRNs 
BYN  =  - 
NrO 
CALL 
CALL 
20  CONTI 
N  -  L 
DO  30 
NsMPj 
IF(  AM 
SlJBSU 
BKNMi 
BKRNM 
BKN  =  B 
BKRN  = 
M+l  H 
BKNPj 
BKRNp 
GO  TO 
CONTI 
SUPER 
BYNMJ 
BYRNM 
BYN  =  8 
BYRN  = 
BJNMJ 
BJRNM 
BJNSB 
BjRNs 
N+l  B 
BYNPj 
BYRNP 
BjNPl 
bJHNP 
CONTI 
N.M  C 

call 

1n,h*R 

*  RJNM 

*  BYRN 
UPDAT 
PHIsp 
U  =  U*U 
Vsv  +  V 
CHECK 
IF(N. 


SEL  FUNCTIONS  FOR  Ns-1  AND  NsO, 

BESY'f  4mPTRL,N,BYRN,  IEH) 
BESYf AmPIL,N,BYN, IER) 
-BYRig 
BYN 


8ES 
RES 
NUE 
OOP 
NP 
-1 
ACH 
NIC 
S8K 
1=B 
KNP 
BKR 

ESS 

=  2. 

1=2 

27 

NUE 
SON 
=  BY 
1=B 
YNP 
BYR 
sBJ 
1=B 
JNP 
BJR 
ESS 
=  2. 
1=2 
=  2. 
1=2 
NUE 
DMP 
PHU 
NP1 
!#H 
,BY 
F  P 

HI* 

NM 
NM 

CO 
EO. 


Yf amPtRL,N,BYRnPi , IER) 
Yf amPIL,n,BYNPi, iER) 


1  =  1  ,NMAX1 

•  BT'.l.)  GO  TO  25 

• 

N 

*RN 

1 

Np\ 

E|   FUNCTIONS  BY  RECURSION, 
•FLOAT (N)*BKN/AMPIL+BKNM1 
,*FLOAT(N)*BKRN/AMPIKLtBKRNMl 


Ir. 

N 

YPN 
1 
Npi 

N 

Jrn 
1 

Npi 

Ei 

*PL 

.♦F 

*FL 

.♦F 


FUNCTIONS  BY  RECURSION. 

DAT(N).BYN/AMPIL-BYNM1 

LOaT(N)*BYRN/aHPIKL-BYRNMj 

C|AT(N)*BJN/AnpiL-8JNMl 

LnAT(N)*BJRN/AMPIRL-BJRNHi 


.♦FLrJAT(N)*BJRN/AMPIWL-BJRNMi 

o^fnT  of  phi,  u  ano  v. 

Vmm  (N,M,X,T HE TA,AMACH,AL, ACL, THMAX, BKNMI, BKNP1,BKRNH1,HKR 
»MaYK,Ma*P,ABaH»R«aR,EPS,aN,BN,PHINM,UNM,VNM, 

■Jm#rJnpi,8jhnmi,bjwn,bjrnpi,bynmi,hyn,bynpi,byrnmi, 

RnP!  ) 

Ht,  U  ano  V, 

PwinM 


NvfRC-ENCE. 
0^  GO  TO  30 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
olO 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
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SUBROUTINF  phiuv 


SEPT.  77 


IF(A8S(PHtis|M)  tLT.OEHtANO,  (  ABS  (  UNM  )  ,  L  T  .  DEL  1  .  A  NO  .  ABS  (  VNM  )  ,  L  T  ,  DEL  i  )  )  1010 

*  GO  TO  35  10*20 

30  CONTINUE  1030 

35     CONTINUE  1  OaO 

IPC*. EG. 1)  r,Q    TO  36  1050 

OPHI=ABS(phI-PHI A)  1060 

DU=AbS  (U-iia  )  1070 

DVsARS(V-vA)  '080 

lF(0PHl,LT.nEL2.ANo, (OU,LT,0fcL2. AND, DV.L T ,DEL2) )  GO  TO  US  1090 

PHIAsPH!  1100 

UAzU  1110 

VA=V  1120 

40  CONTINUE  1130 

CONTINUE  1140 

RETURN  1150 

END  1160 


36 


45 
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SUBROUTINp  phuvnm 


SEPT.  77 


10 
C 


SUB 
1M1, 

*  BJ 

*  BY 
COM 
DIM 
ROU 

per 
dou 

BY 
NAV 
INPUT 

N,M 
X 

THE 

BET 
AL, 
THM 
BKN 
BKR 
MAX 
ABA 
AN, 
OUTPUT 
PHI 
UNM 
VNM 

CON 
Pis 
AMP 
BET 
BET 
BMP 
SM  = 
CM  = 
SMS 

SNs 

CN  = 

MAX 

MAX 

CAL 

AAM 

ABM 

DO 

AAM 

ABM 

CAL 

BAN 

B8N 


ROU TIN 
BKRN#B 

NM^BJ 
RN,BYR 
HON  /C 
ENSION 

tine  t 
turqat 
ble  pu 

G.  N. 
AL  POS 


F  PHU 
KRNPl 

n.bJn 

MP!  ) 
mloC2 

ARAR 

n  cal 

TON  V 
I  YNOM 
vanOE 
tgRah 


VNM 
,MAX 
Pi  ,B 

/AMX 

(  1), 
CULA 
ELUC 
IAL. 

RPLA 
UATE 


(N,M,X, THETA, AMaCH,AL#ACL,THmax,c)KNM1,BKNP1,BKRN 

K,MaXP,ABAR,BBAR#EPS,AN,BN,PhINM,UNM,VNM, 

JRNMl,RjRN,HJRNPl,BYNMt,BYN,BYNPl,BYRNMl, 


(10,l5),BMX(i0,l5),ANT(l0,l5) 

BHAR(  1  )  ,  AN(  I  )  ,[)M(  1  ) 

TF  N,H  COMPONENTS  OF  POTENTIAL,  PHINM, 

ITIES  UNM  and  Vnm  FOR  a  TURRET  DEFINED 


AND 
BY  A 


ATS 
SCHOOL, 


MONTtRFY,  CALIF. 


OCT.,  1976 


TA 
A 

ACL 
AX 

NMl, 


-  SUHSCRIP 

-  LONGITUO 

-  CI^CUMFE 

-  ABS(1 ,-A 

-  1/2  LENG 

-  1/2  CIRC 
RKhpi  -KB 

Bkrn,  BKHn 


K,  MAXp   -  MAX 
R,  88Ap  .  X  AND 
BN   -  DUMMY  ST 

NM     -  PERTURBA 

-  u  PERTUR 

-  v  PpRTUR 


TS  ON  PHI,  U  AND  V, 

1NAL  COORDINATE  ALONG  TURRET. 

RENTIAL  COORDINATE  AROUND  TURRET, 

M  A  C  H  *  *  2  ) 

TH  OF  TURRET  AND  1/2  PERIOD  BETWEEN  TURRETS. 

UMFERENCE  OF  FUSELAGE  OCCUPIED  BY  TURRET. 

ESSEL  FUNCTIONS  AT  N-l  AND  N+l, 

Pi  -  K  BESSEL  FUNCTIONS  OF  »  AT  N-l,  N  AND  N+l 

EXPONENT  OF  X  AND  THETA  POLYNOMIALS. 

THETA  POLYNOMIAL  C()£F  I  C  1  E'<  T  5  . 
ORAGE  DIMENSIONED  MAX ( MA XK + 1 , M A XP+ 1 ) 

TION  POTENTIAL, 
BATION  VELOCITY. 
BATION  VELOCITY. 


ANTS'. 

1«15o?7 

FLOAT(M)«PI/ACL 

AHS (  )  ,  .AMACH*«2) 

SORTfRFTA) 

BETA«amPl 

PL*X 

SCSM, 

N(SM^ 

OAT  (hjj.ThETA 

S(SN1 

IsMAxk+1 

1=MAyP*1 

LATE    A-BAR     TIMES    A-SUB-M    ANO    A-BAR     TIMES    B-SlJB-M, 


1=1 .MAXKP1 
AM* ArAR( I )*AM 
HM  +  AfuR(  I  )  »HM 
LATE    r-BaR    TI 


Xf I,M) 

X  f  I  ,  M  ) 
MES  A-SUB- 


N. 


10 
20 
30 
40 
50 
60 
70 
BO 
90 
100 
110 
120 
130 
140 
150 
160 
170 
lbO 
190 
200 
210 
220 
230 
240 
250 
ZbO 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
3to0 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4B0 
490 
500 
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SUBROUTlNp  pHyVNM 


SEPT.  77 


20 
C 


30 
C 


NPl=Nt 
DO  20 
B  A  N  =  B  A 
CALCUl 
FNsBAN 
IF ( AHA 
SUBSON 
CALCUL 

C  1  =  A  A  M 

C2=BET 
C3=2.« 

PHJNMr 

CALCUL 
UNH=C3 
CALCUL 

VNM  =  -A 
RETURN 
CONTIN 

supers 

ANMSBY 

BNM=BY 
APB  =  AN 
AMB=AN 
A82  =  AN 
A  1 =APH 
A2sAMB 

a3=aa* 

Aar  A  AM 
AS  =  2.« 
PHINM. 
RHI NM  = 
UNM. 
UNMSA5 
VMM 

VNM  =  -E 
S(A1*AR 
RETURN 
End 


1 

1  =  1 

N  +  B 

ATE 

*CN 

CH, 

IC. 

ATE 

*SM 

A*( 

hPS 
C3» 

ATE 
*AM 
ATE 
mPL 


.MAXPPt 
RAP(I)*ANT(I,NPl) 

F-SUB-N  OF  THET*. 

P, T.I.J  GO  TU  30 

phInm, 

,ARM*CH 

rknPi+B^nmi  ) 
«FM*eKRN 
P1/C2 
unm. 
pl*(aam*cm+abm«sm)/c2 

VN*. 
(tePS*FN*(SKRNPl+BKRNMl)*Cl/(BKNPl+BKNMl) 


UF 
ONlr. 

NPI-BYNMUBJNPI-BJNMI 
NPl.RYNMl-bjNPWBJN*l 

M  +  R  MM 

M-Rwm 

M**p  +  RNH  *  *£ 

*S"1.AHb*CM 

*SM>APB*CH 

*BYpn+abM*BJHN 

*  B  J  p  m  _  A  H  M  »  H  Y  R  H 

EPS*FN/(AB2*BET A) 

A5*  f  A  1  * A3*A2*A4) 

•AMpL.(A2*A3-A t*A4) 

PS»FN*AMPL*((AUAAM»A2*AaM)*(8YRNPl-BYRNMi)* 
M*A?^AAM)«(BJRNP1-BJRNM1))/AB2 


510 

520 
530 
5<40 
550 
5o0 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
7o0 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
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SUB«OUTI 
lP,A8AR,B 
2A*,DEnGA 
OIMENSIO 
WOUTiNE 
ON  A  REA 
BY  G.  N 

naval  po 

GIVIN  AZ 
X,  THETA 

Call  xkt 
calculat 

CALL  PHI 
1B8AR,EPS 
INDEX  OF 
CPr-?,*U 
Clsl.+.5 
RIN0EX=A 
RETURN 
END 


10 

20 

30 

UO 

bO 

GO 

70 

80 

90 

100 

1  10 

120 

130 

140 

lbO 

lbO 

1  70 

180 

190 

200 
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SuBROUTINp  RMBINT 


SEPT,  77 


SlIRROUTINp  RMfllNT  (T,K,Kl) 
DIMENSION  T(l) 
ROUTINE  Tr)  PERFORM  ROMBERG 
BY  G.  N,  vanOFWPLAATS 
NaVAL  POSTGRADUATE  SCHOOL, 


INTEGRATION, 
MONTEREY,  CALIF, 


NOV 


INPUT 
T 


K    = 

Kl  = 

lUTPlJT. 

T   = 


VE 
IF 
CO 
4N 
IN 
NU 
K 


IOTES 
1) 


2) 


R 


10 


=  VE 
The 
T(2) 
DIFF 

T(K) 
OEST 

TF  A 
STaT 
Then 
ALL 
EFtHENCE/ 
1965,  P 
IF  (K.L 
KlPlsKl 
bUILD  W 

00  10  K 
KM1=KK- 
Asl. 
I=KK 

put  row 
do  10  I 

1  =  1-1 
Asa.*A 

T(I)=(A 

RETURN 

ENO 


cTor  containing  Results  of  trapezoidal  rule 
Tfl)  contains  trap,  rule  results  fur  n  int 

NTixNS  RESULTS  FOR  ^N  INTEPVALS,  T(J)  CONTa 

Intfrvals  and  t(i)  Contains  results  for  (? 
TErvaLS. 
MHfr  OF  TkAPEZOIDAL  RULE  RFSULTS  CONTAINED 

on  last  call  to  rmbint,  first  time  rmbint 

CTnR  CONTAINING  LAST  ROW  of  ROMBERG  TABLE  I 
HIrhFSt  nH0Ep  APPROXIMATION  TO  TH£  1NTfGRaL 

GtVFS  THE  2NI)  HIGHEST  OkqeR  APPROXIMATION 
ERFNCt  BETWEEN  T(i)  AND  T(2)  IS  AN  ACCURACY 

IS  THE  HIGHEST  ORDtR  TRAP,  RULE  APPRUXIMAT 
ROyE^. 

CChRaCY  IS  NOT  SATISFACTORY,  THE  NUMBER  OF 
IOkjs  Can  dE  DOURLED  and  a  n£w  SOLUTION  STOR 

Sp-T  ki=k  and  K  =  Kfi  ano  call  rmbint  auajn  f 
INyTTAL  enthies  Of  t  UP  TO  K-l  are  destroye 

ConTE,  ELEMENTARY  NUMERICAL  ANALYSIS,  MCGR 
P  f ?6- 133. 

E.T]  return 

♦  1 

Ow  kk  OF  ROMBERG  TABLE. 

K=K1P1,K 


Kk  in  T(I),I=i,kk  IN  REVERSE  ORDER.  T(KK) 
I=i,KM1 


*T*f  I*lj-T(I))/(A-l  ,) 


10 

20 

30 

.,  1^76 

40 

50 

60 

70 

INTEGRATION. 

80 

ERVAlS*  T(2) 

90 

INS  KESULTS  FOR 

100 

**(I-1 ) )N 

1  10 

120 

IN  T, 

130 

IS  CALLED  Kl=l . 

140 

150 

N  REVERSE  ORDER, 

loO 

IS  IN  T(l ) . 

170 

SO  The 

160 

ESTIMATION. 

190 

ION  AN(j  IS  NOT 

200 

210 

220 

TRAP  RULE 

230 

ED  IN  K+l  OF  T. 

240 

OR  Nf  SOLUTION. 

250 

0. 

260 

AH-HILL, 

270 

260 

290 

300 

310 

320 

330 

340 

350 

DOES  NOT  CHANGE. 

360 

570 

360 

390 

400 

410 

420 

. 
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SUBROUTINp  RSURF 


SEPT,  77 


SUB 

DIM 

c 

ROU 

c 

X  A 

c 

BY 

c 

NAV 

c 

SPE 

c 

FUS 
R=l 
IF 

c 

CON 

max 

MAX 

c 

POI 

c 

EVA 
FX  = 
IF 
XI  = 
00 
XIs 

10 

FXr 

20 

CON 

c 

EVA 

FTH 

IF 

THI 

00 

THI 

30 

FTH 

HO 

CON 

c 

Rsl 

R=l 
RET 
End 

ROUTINp  rSURF  (A0AR,8HAH,EPS»MAXK,MAXP,X,THETA,ALf THMAX,R)  10 

ENSION  AflAW(l) ,BBAR( t )  20 

TINE  Tq  calculate  the  nun-oimensional  TURRET  RADIUS  AT              30 

ND  THEta.  «0 

G,  N,  vanDEMPLAATS  NOV.,  1976,                   50 

AL  POSTGRADUATE  SCHOOL,  MONTERE*,  CALIF.  60 

CIAL  CaSE  -  THETA  OR  X  NOT  UN  TURRET,  POINT  IS  ON  CYLINDRICAL          70 

ELAGE.  BO 

90 

(ABS(TwF.  TA}  .GE.THMAX.OR.ABS(X)  ,GE.AL)  RETURN                            100 

STANTS'.  110 

KP1=MAYKfl  120 

PP1=MAYP*1  130 

NT  ON  TURRET,  140 

LUATE  F(X)  150 

ABARU^  160 

(MAXK.fq.O)  GO  TO  20  170 

1  .  180 

10  IX=?,mAXKP1  190 

XI*X  200 

ABS(XIKLT.l  .0E-20)  GO  TO  20  210 

Fx+A8Ar(tX)*XI  220 

TINUE  230 

LUATE  r(THETA)  240 

=B0AR(^)  250 

(MAXP.po.O)  GO  TO  40  260 

=1.  270 

30  ITH=2.maXPP1  280 

=THI*THETA  290 

A8S(THT) .LT.l .OE-20)  GO  TO  40  300 

=FTH+BraR(ITH)*THI  '  310 

TINUE  320 

.0  ♦  F'(  X}*F(THETA).£PS  330 

,fFX*FTH*EPS  340 

URN  350 

360 
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SUBROUTINp  slope 


SEPT.  77 


Sije«OUT!NF  SLOPE  (MAXK,  *HAR,  AL»SLOPEX,NVAL#  AMULTS) 

DIMENSION  ARAB(  l)#Sl.OPEX(  I  ) 
C       HOUTlNE  Tn  CALCULATE  SLOPE  OF  A  POLYNOMIAL  AT  NVAL 
C      BETWEEN  X  =  -AL  ANO  X  s  aL. 

IP  (NVAL.i  T.2)  RETURN 

DX=2,.AL/fPLOAT(NVAL)-l.) 

X=-AL-DX 

MAXK1 =MAXk+ 1 

DO  50  I=1.NVAL 

X=X*DX 

SLOPEX(I)sO. 

IP  (MAXK.i  t. 1 )  GO  TO  30 

SLOPE X(I)-AflAR(?) 

IP  (maxk.fo, 1 )  GO  TO  20 

AMULTsl. 

XI=l. 

DO  10  J=3,maXK1 

xi=xi*x 

AMULTrAMU|  T+l . 
10  SLOPE X( I)=SLnpEx(I )+AMULT*A8AR( J), XI 
20  SLOPE X(I)=AmUlTS*SlOPEX( I) 
30  CONTINUE 

RETURN 

End 


PUINTS 


10 

20 

30 

40 

50 

&0 

70 

HO 

90 

10  0 

1  10 

120 

130 

I  aO 

150 

1&0 

1  70 

iao 

190 
200 
210 
220 
?.iO 
240 
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subroutine  sRfint 


sept,  n 


SU8«UUTTNF  SRFINT  ( XM , EPSM , PH I , G AMM A , A , »B , t T A , X , R , THE T A , AB AH , Hb AH ,  10 

1EPS,MAXK,HAXP, AL, THMAX)  20 

DIMENSION  AB*R( 1 ) f 6HAR( 1 )  30 

C       ROUTINE  Tn  CALCULATE  DISTANCE  ALONG  6FAM  FROM  MIRROR  TO  TURRET  40 

C      SURFACE.  50 

C       BY  G.  N,  VANOFRPLAATS                                    NOV.,  1976  6U 
C      NAVAL  POSt  GRADUATE  SCHOOL,  MONTERE*,  CALIF,                             (   70 

C   OUTPUT.  bO 

C       A  =  OISTa^cF  FHOrt  MIRROR  TO  TURRET  SURFACE.  ^0 

IF"  A  =  .j.OE-6  On  RETURN,  morrur  SURFACE  IS  OUTSIDE  TURRET  100 

SURFACE'.  110 

if  a  =  j.oe-6  on  return,  no  intercept  could  be  founo  at  a  less  120 

than  io."  This  pkorAqly  results  from  unrealistic  turret  shape,  130 

method.  mo 

for  variums  values  of  rho,  calculate  x,  rp  and  theta  fuh  a  point  ibo 

ON  THE  ReaM.   FOR  fc'AcH  X  Anq  THpTA,  c4LcULATe  «S  FOR  RADIUS  10  160 

THE  SURfacE.   INTERPOLATE  TO  GET  RR=RS.   THE  CORRESPONDING  VALUE  170 

OF  RHO  TS  A,  lttO 

DRH0=,2  190 

Radius  of  ream  ray  at  point  on  mirror  surface,  2oo 

RHOsO.  210 

Also.  220 

RR1=EPSM  230 

"X=xm  2^0 

TH£Ta=0.  250 

IF  (RR,Gr  i  .0E-4)  CALL  XRTPOB  (  XM,  EPSM,  Ph  I  ,  r,  AMMA  ,  RHO,  RB  ,  E  T  A  ,  X  ,  KR  1  ,  260 

IThETA,Y,Zi  2/0 

surface  Radios  of  point  at  x  and  theta,  for  rho=o,  2&0 

Call  rsurf  (araR,bbak,eps, maxk,maxp, x, theta, al, thmax,rsi )  290 

DR1=HS1-Rri  300 

As-l,0E-6  310 

IF  DRl.LT'.o,  BASE  OF  MIRROR  IS  OUTSIDE  TURHpT,  320 

IF  (DR1.LT.0.)  return  330 

PICK  ARBITRARY  NE«  RHO  AND  INTERPOLATE.  340 

10  RhO=RHO+DrhO  350 

Radius  of  point  on  ream.  3&0 

CALL  XHTPor  (XM, EPSM, phI, Gamma, Rho, RB,ETa,x,RR2, ThETa, Y,Z)  370 

TURRET  SUpfaCF.  3b0 

CALL  RSURp  fABAR,BbAH, EPS, ^AXK,MAXP, X, THETA, AL, THMAX,RS2)  390 

DR2=RS2-Rr2  "00 

DDR=DR2-0pi  410 

IF  (AHS(DnP) .LT . 1 . OF-1 0)  DDRal.OE-10  420 

A=Al-DRH0*oPl/ODK  430 

IF  (A.LE.PHO.nR.RHO.GT.  10.  )  GO  To  20  440 

A  IS  EXTRApnLAlEU  POINT,  UPOaTE  AN0  INTERPOLATE  AGAIN,  450 

RR1=RR2  460 

RS1=KS2  "70 

DR1=DR2  4tt0 

AlrRHO  "90 

GO  TO  10  500 
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SUBROlJTlNr  sRFlNT 


SEPT.  77 


20  CONTINUE 

IF  tA.LT.fl.)  A=l.0E-6 

KETUWN 

END 


510 

5<eo 

530 
5^0 
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SUB«OUTINF  SURPRT 


SEPT,  77 


SUB 
DIM 
KOU 
BY 
NA  V 
INPUT. 
ABA 

8BA 


WOUTlNp  SUWPRT  ( ABAR»B8AR,MaXk,MAXP,EPS, AL> THMaX) 
ENSION  aBAR( t ) ,BFUR(  1  ) 

TINE  Tn  PHINT  SURFACE  FUNCTION  URDINATES  FOR  POLYNOMIAL 
G.  N,  VANDEWPLAATS  NOV.,  197b, 

AL  POSTGRADUATE  SCHOOL,  MONTEREY,  CALIF, 


TURRET, 


10 

20 


30 


MAX 

MAX 

EPS 

*L 

TMM 

UUT 

POL 

THE 

MAX 

MAX 

*RI 

*R1 

(KRI 

WRI 

X-0 

rtRI 

Dx  = 

X  =  - 

DO 

X  =  X 
Z  =  A 
AMU 
ZPR 
IF 

XI  = 
DO 
AMU 
ZPR 
XI  = 

z  =  z 

CON 

ZrE 

ZPR 

IF 

IF 

WRI 

CON 

THE 

WR] 


AX 

PUT 

YNO 

TA 

Kl  = 

Pl  = 

TE 

TE 

TE 

TE 

IRE 

TE 

.1* 

1.2 

30 

♦  1>X 

BAR 

LT  = 

iMr 

(MA 

1. 

10 

LT  = 

IM  = 

XI* 

+  ab 
Tin 
PS* 

IMS 

(I. 
(I. 

TE 
T  IN 
Ta 

TE 


s  VECTf^R  Q?    POLYNOMIAL  CUEFICIENTS  IN  X. DIRECTION,   A6AR 
muST  bE  DIMENSIUNED  AT  LFAST  maxk+1  In  CALLING  ROUTINE. 

=  VFCTDH  OF  POLYNOMIAL  COEFICIENTS  In  T HE T a-D 1 »tC T I  ON . 
rra«  MUST  BE  DIMENSIONED  AT  LEAST  MAXP+i  In  CALLING 
ROUTINE. 

=  ORDER  OF  X-POL^NOMIAL. 

=  ORDER  OF  THETA-POLYNOMI  A(  , 

=  <?c*LaR  SURFACE  MULTIPLIER.   SURFACE  =  E PS »F ( X ) *F ( THE T A  )  . 

=  7/2  TURRET  LENGTH, 

z    \/2    TURRET  ANGLE. 


UNCTION  COORDINATES  IN  T^RmS  OF  X  AT  THgTA 
0. 


EPS 

(ABAR(  I),  1  =  1 ,MAXKi  ) 


(HBAR(I)  ,  I=1,MAXP1  ) 


MIA,   F 

AT  x  = 
HAXk+1 
MA  Xp+  l 

(6,701 
(0,  flO) 
(6, oo  ) 
(6, ftO  ) 

CT Ion. 

(6, \ 00 
AL 
*AL 
1=1.23 


(1  ) 

0. 

0. 

XK.FO.O)  GO  TO  20 


0  AND 


2 , MAXK  1 
U|  T+l. 

RTM*AMULT*ABAR(J)*XI 

(I)*XI 

Ao( i ) *Z 

S*hraR( 1  )*ZPRTM 

•  T'.OK.l  .EU.23)  Z:0, 

,t .OK. I. EO, 23)  ZPRIM: 

,110)   *.Z,ZPKIM 

RrcTinN, 

,  \?0) 


0. 


10 
20 
40 
40 
50 
OO 
7 'J 
frO 
90 
100 
110 
120 
130 
1  U  0 
150 
lt>0 
170 
18o 
190 
200 
210 
2d0 
230 
240 
250 
200 
270 
280 
290 
300 
310 
320 
3>0 
340 
350 
3o0 
S70 
38  0 
390 
4U0 
410 
420 
430 
440 
45  0 
4O0 
470 
400 
490 
500 
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SUBRoUTlNF  SURPRT 

DTHS.  J  *THM*x 

THs-l ,2*Thmax 

DO  60  1=1.23 

THrTH+DTH 

Z=BBaR( 1 ) 

IF  (MAXP.pQ.O)  GU  TO  SO 

THI  =  1  . 

AMULT=0, 

ZPRlMsO, 

DO  40  J=2,MA"P1 

AMULT  =  AMU|  T>  1  f 

ZPRlM  =  ZPRTM«.AMUlT*f3RAR(J)* 

THI*THI*Th 

40  ZsZ  +  BRARc.d.ThI 
50  CONTINUE 


SEPT.  77 


THI 


V,  U  IN  I  1  ?l  U  t 

Z=EPS*ARApf 1 ).Z 
ZPRlMaePS*ABAR(l)*ZPRlM 

IF  (l.£0.i.nR.I.tC3.23)  Z  =  0. 

IF  (I. £0.1 .0«.I.EQ.2i)  ZPRIM=0. 

THR  =  TH*57">29578 

WRITE  (6, no)  TH, ThR,Z,ZP«IM 


60  CONTINUE 
RETURN 


)EFINITI0N,5X,6H(EPS  =,F7,3, 1 H ) /S X , 54HPQL 
r=n.MAv^i  ,.,  X-DjHECTiON) 

IN  THETA-OI 


70  FORMAT  (///5*,  1HHSURF ACE  OEF  I  N  I  T I  ON , 5 X , 6H ( EPS  =  ,F 
IYnOMjAl  CnEFlClENTS  (Ml)#  I=0,MAxk)  IN  X-OjhECTi 
80  FORMAT  (5y,St-l2.5) 

90  FORMAT  (/c;x,5aHP0LYN0MIAL  COEFICIFNTS  (B(I),  IsO,MAXP)  IN  T 
IRECTION) 

100  FORMAT  (/e;x,  1  IHCOOROINaTeS/RX,  IHX#  1  1  X,  1HZ,9X,7HZ-P«IME) 
110  FOKMAT  (5x#p-7.3,5x,F8.«'»5X,F«J.«»ix,FB.«) 

120  FORMAT  (/i2X,5HThETA/SX,7HRAUlANS,oX,7HI)fcGRfES,BX,lHZ,9X,7H 
1) 
END 


Z-PRIME 


510 
520 
530 
540 
550 
560 
570 
560 
590 
600 
610 
620 
630 
o40 
e>50 
t>60 
670 
68  0 
690 
700 
710 
720 
730 
740 
750 
7o0 
770 
780 
790 
800 
810 
820 
830 
840 
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SUHROUTlNp  TlNPUT 


SEPT.  77 


TI 


AER 

:   A"I 


SUBROUTINp  TlNPUT 

Input  card  format 

TLE(I),I=i,20 

ANYTHING  HAY  BE  TYPED  IN  CUL.  2*60 

OOYNAMICS  .  OPTICS 
ACH,DENRTn,T0ENRT,DENGAM,AKPRIM,H4VEL 


FORHAT (20A4) 


F0RMATC8F10) 


GEO 

TUR 

r  HF 


HA 


AHACH 

OENRTp 

TDENRT 

DENGAm 

AKPRIm 

WAVEL 

metry 

RET 

US, AL, THHA 

RFUS 

AL 

THHAX 

ACL 

EPS 

XK ,MAXP, N$ 
MAXK 
MAXP 
NX8C 

NTHBC 


FREESTREAM  MACH  NUMypR 

FLIGHT  DFNSITY/SEA  LfVEL  DENSITY 

OfcNSITY  INSIDE  TURRET/SEA  LEVEL  DE^STTY 

EXPONENT  ON  PRFSSURE-DENSITY  RELATIONSHIP 

INOEX  OF  REFRACTION  CONSTANT 

REAM  nAVELENGTH 


X, 


HC 


A8 


YY 


BB 


YY 


MIR 


PHA 
t  N£ 


AR(I),Irle 
ARAR( t 

PXBC(  I, J), 
YYPXHc 

AR(I),  1  =  1, 
BBAR(| 

PTBC(I,J), 
YYPTBr 


ACL, EPS 

FUSELAGE  RADIUS 

TURRET  NON-DIMENSIONAL  HALF  LENGTH 

TURRET  HALF  ANGLE  (RaU) 

HALE  TURRET  SPACING 
TURRET  HEIGHT  MULTIPLIER 
, NTHBC 

ORDER  OF  X-POLYNOMUl  SHAPE  FUNCTION 

ORDER  OF  THg T A-POLYNnMI AL 

NUMBER  OF  SETS  OF  Y  AND  Y-PRIMf  BOUNnA 

CONDITIONS  IN  X-DIRECTION,  EXTERNALLY 

NUMfaER  of  Sets  of  y  and  y-prime  bounda 

CONDITIONS  IN  THETA-olRECTION,  EXTERNA 
NOTE.  AT  x=THETA=0f  Y=EPS  IS  AUTOMATIC 

XK*1 

=  1-1  COEFICIENT  OF  X.POL YNOM I AL 

=  1  ,3  NXflC  CARDS 

,J)  =  X,  Y  AND  Y-PRIME  BOUNDARY  CONDITI 
X-DIRECTION, 


F0RMAT(8F10) 


F0RMATC8I 10) 


XP+ 1 

=  1-1  COEFICIENT 

=  1,3 

#J3 


OF  TH£T A-POLYNOMI AL 
NTHBC  CARDS 
=  X,  Y  AND  Y-PRIMF  BOUNDARY  CONDITI 
THETA-DIRECTION. 


RY 

IMPOSED, 

RY 

LLY  IMPOSED. 

ALLY  IMPOSED. 

FORMAT (8F 10) 

FORMAT (8F1 0 ) 
ONS  IN  THE 

FURMAT(SFIO) 

F0RMAT(8F 1 0) 
ONS  IN  THE 


ROR  CENTEp 

Sm,  Xm 

EPSM  r  7-LOCATlON  OF  CENTER  OF  MOPROR 
XM    -  x-LOCATlON  OF  CENIER  OF  mirror 

SE  DISTORTION  CALCULATION  POINTS 
T AI,NRBI 


FORMAT(SFIO) 


F0RMAT(8I 10) 


10 
20 
30 

40 

50 
oO 
70 
80 
90 

too 

1  10 
120 
130 
UO 
JbO 
loO 
1  70 
180 
1*»0 
200 
210 
220 
230 
240 
250 
2o0 
270 
280 
2^0 
300 
310 
320 
330 
340 
350 
3o0 
370 
380 
3V0 
400 
410 
420 
430 
440 

450 
4t.O 
470 
480 
4V0 
500 
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SUHROUTlNp  TlNPUT 


SEPT.  77 


NET4I  s  NUMBER  OF  ETa  ANGLES 
NR8I   s  NUMBER  OF  RADIUS  POINTS 

*  t ta r c i x» i  =  i.nftai 

ETAI(T)  =  ANGLE  (DEGREES) 
*  RBI(I),Isl,NRRl 

RBI(I)   =  RADIUS 

BEAM  URIFNTAttO''' 
»  NBEAM 


FORMAT(aFlO) 
FOHMAT(8F10) 


FURHAT(8I  10) 
ANAL1ZED 
F0R^AT(8I  10) 


NHEAM  _  NijmbeR  np  DIFFERENT  BEAM  DR  I E  NT  a  T  I  0NS 

*  PH1I(  I),GAMM*I  (  I  )  ,  AMACHT(  I  )  ,  wGHTK  I)     NBEAM  CARDS 

PHlKp    =  AZMUTH  ANGLE  (DEGREf-S) 
GAMMAt(T)  =  ELLVATION  ANGLE  (DEGREES) 

AMACHT(T)      =     MACH     NU-'BER.     OEFAIILT     =     AMACH. 

wGHTIfn  s  WEIGHTING  COEFFICIENT,   DEFAULT  =  l. 
SUBROdTTNp  TlNPUT 
COMMON  /Gi'oBCM/  A8AR(20),ACL,AKPRlM,AL,AMACHl(30),BBAR(20),DtNRTU, 

*  nE^GAM,EPS»EPSM>GAMMAK30)fPHII(30),RFUS,SLUPE)!(30),SUMPOa, 

*  TDENR  T,  rHMAX,r^AVEL»"GHTl(iO),XM 

COMMON  /CmlOC/  ETAI ( lh),MAXK,MAXP#NBEAM,NETAl,NRei,NTHbC,NXBC# 

*  RBI(10),ttTLF(2U),YYPX«C(10,3),YyPT'JC(10,3) 

Routine  Tn  reao  inpuj  for  laser  turret  phasf  distortion  analysis. 

By  G.  n,  vAN'JFRPlAATS  NOV,#  1976 

NAvAL  POSTGRADUATE  SCHOOL*  MUNT£RpY,  CALIF. 


C 
C 
C 
C 
C   TI 


C   AE 


C   GE 
C 


TLE. 
READ  (5 
iPNPUTs 
IF  (IPN 

RO-OPTIC 
READ  (5 
IF  (IPN 

1  AvEL 
OMFTRY. 

turret. 
Read  (5 

IF  (IPN 
THMAxrT 
HEAD  (5 
NXBCsNX 
NTHRCaN 
M  A  X  K  J  =  M 
MAXPl SM 
IF  (IPN 
HEAD  (S 
ARAR(  1  ) 
IF  (IPN 
tYPXPC( 
YYPXBC( 
YYPX0C( 


,7fi)     (TlTLE(I), 1=1,20) 

0 

PUT. E&. 0)  WHITF  (6,1U0)  (TITLE(I), 1  =  1,20) 

S. 

,8o)  AMACH, DENRTO, TOE NRT,QENGAM,AKPRlM,wAVEL 

PUt.E^.O)  WHITE  ((,,150)  AMACH,DENRTO,  TDE^RT,DENGAM,  AKPRIM,w 


»8()) 

PUt.F 
HM4x/ 
»90) 

rc;i 

THbc* 
**«*\ 

AXB  +  1 

PUt.F 

,  8n ) 

=  r 

pUT.E 

I'll" 
U?)s 


RFUS, Al, ThmAx, AcL,EpS 

N.O)  "RITE  (b,160)  RrUS, AL ,THMAX,EPS, ACL 

57.29578 

MAXK,MAXP,NXBC,NrHBC 


U.O)  "RITE  (6,170)  MAXK 
(AHAR(  I),  1  =  1  ,MAXKJ  ) 

U.O)  WRITE   (6,180)   (ABAR(I)  ,  I  =  1,MAXK1  ) 

0. 

EPS 

<?0O, 


510 
520 
530 
Sao 
550 
5o0 
5/0 
580 
b90 
600 
610 
620 
o30 

Dill 

650 
6e0 
670 
6M0 
690 
700 
7  10 
720 
730 
740 
7b  0 
7o0 
770 
780 
740 
800 
810 
820 
830 
84  0 
850 
860 
870 
860 
890 
900 
9J0 
920 
930 
940 
9S0 
9o0 
970 
980 
490 
1000 
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SUBROUTINE  TlNPUT 


SEPT.  77 


10 
20 


I 
I 
D 
R 
C 
C 
I 

1 
R 

I 

B 

1 

y 

Y 
Y 

i 
i 

D 
R 

C 

c 

I 

M 
R 
I 

PHAS 
H 
R 
I 
I 
0 

50  E 
R 
1 
I 

BEAM 
R 


30 
00 


60 


70 

80 


F  (NX 
F  (IP 
0  10 
EAD  ( 
ONTIN 
ONTIN 
F  (IP 
F  (fP 
EAD  ( 
MPUSE 
BAR(  1 
F  (IP 
YPTRC 
YPTBC 
YPTbC 
F  (NT 
F  (IP 
0  30 
EAD  ( 
DNT  IN 
ONTIN 
F  (IP 
IRROR 
EAD  ( 
F  (  IP 
F  DIS 
EAD  ( 
EAD  ( 
F  (IP 
F  (  IP 
0  SO 
TAIU 
EAD  ( 
F  (IP 
F  (IP 

ORIE 
EAD  ( 
F  (IP 
0  60 
FA0(5 
F  (  AM  A 
F  (  ARS 
F(  1PN 

HIKI 
AMMA  i 
ONTIN 
ETURN 

OR*AT 
OHMAT 


BC.FD. 
NPUy.F 
I -2, NX 
5,80) 

UE 
UE 
nput.f 

NPUt.E 

5,  8n ) 
BOiinO 

NPUt.F 
(1,1)= 
(!»?)= 
(1»1J= 

HBC' FQ 
NPuf.E 
1=2, NT 
5,  An) 
UF 
UE 

NPUt.F 
CEnTF 
5,8ft) 
NPUt.E 
TORTin 
5,^ft) 

5,«o) 

NPUt  f 

nputIf 

1=1. NE 

)=EtaI 

5,80) 

NPUt.E 

NPUtJf 

N  T  A  t  I  0 

5,<?ft) 

NPUt  .f 

1=1 , NR 

,80}  P 
CHIfI) 
(wGmTT 

put'  e;q 

)=PHfT 
(I)=GA 
UE 


(2ftAU 
(8Fjft 


1)  GO  TO  20 

O.O)  WRITE  (6,100) 

BC 

( YYPXBC(I, J) , J=1 ,3) 


0.0)  "RITE  (6,110)  ( (YYPXBC( I, J) , J=l,3), I=1,NXBC) 
Q.O)  WRjTE  ( 6, 19u)  MAXP 
(BBAW(I) , 1  =  1 ,MAXPI ) 
ARY  CONDITION  R(0)=1 . 

Q.O)  WRITE  (6,180)  (BRAR(I) , l5l,MAXPl) 

EPS 

200. 

.  i  )  GO  TO  UO 

O.O)  WRITE  (o,120) 

HRC 

(YYPT6C(I, J), J=l,3) 


0.0) 

R. 

EPSM, 

0.0) 

N  CAL 
NETAI 
(FTAI 
U.O) 

a.O) 

TaI 
(I)/5 
(RBI  ( 

U.O) 
U.O  ) 

NS. 
N  R  t  A  H 

0.0) 

Eam 

HI  I  (  I 

•  lt.o 

(T)  )  . 
.0)  * 
(  l)/5 

fMA  I  ( 


) 

.2) 


WRITE  (6,130)  (  (YYPTRC(I, J) , J  =  l ,3) , 1  =  1 ,NTHBC) 

XM 

WRITE  (6,200)  XM,£PSM 

CULATIOn  POINTS, 

,NRBI 

(I  ),  1  =  1, NETAI) 

WRITE  (6,230) 

wRITF  (6,200)  (ETAKI)  ,  1  =  1  , NETAI) 

7.29S78 

I)  ,  1  =  1 ,NRBI ) 

WRITE  (6,250) 

WRITE  (6,200)  (RRI(I  ), 1=1,NRBI) 


WRITE  (6,210) 

),GAM*UI(I),AMACHl(I),WGHTl(I) 

.001  )  AMACHI  (  I  )  =  AMACH 

LT.0,001 )  wghII ( T )=1 . 

RlTE(6,220)I,PHII(I),GAHMAI(I),AMACHl(I),rtGHTI(n 

7.29576 

I )/57. 29578 


1010 
1020 
1030 
1000 
1050 
1060 
10  70 
1080 
1090 
1100 
1110 
1  120 
1  130 
1  l«0 
1  150 
1  loO 
1170 
1180 
1  190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1  300 
1310 
1320 
1330 
1300 
1350 
1360 
1370 
1  380 
1  390 
1400 
1010 
1020 
1O30 
1040 
1050 
1060 
1470 
1080 
1490 
1500 
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SUBRQUTlNp  TlNPUT 


SEPT,  77 


<»0 
100 
110 
120 

130 
|40 

150 


160 


170 

180 
190 
200 

210 

220 
230 
2<J0 

250 


FORM 
FORM 
FORM 
FORM 
1-PRI 
FORM 
FORM 
FORM 

1  = 
2TERN 
30mEn 
411.4 

FORM 
127HT 

2  z, 
3TURR 

FORM 

1  ION, 

FORM 

FORM 

FORM 

1HEPS 

FORM 

*  12H 

FORM 

FORM 

FORM 

FORM 

tND 


(3 
(/ 

(5 

(  1 
(/ 


AT(8I 
AT  (/ 
AT 
AT 

ME) 

AT 

AT 

AT 

,F6.3 

al  ne 

T,  DE 
/SX,  3 
AT  (/ 
URRET 
F7.3, 

ET  H4 
AT  (/ 

AT  (U 
AT  (/ 
AT  (/ 
M  =,F 
iT(// 
MACH 
AT(  18 
AT  (  / 
AT  (5 
AT  (/ 


10) 

SX,19HR0UnDARY  C0ND1TI0NS/5X,3HX/L,6X,1HY,UX,7HY-PRIME) 

PQ.3) 

SX, 19H80UN0ARY  CONDITION S/5X,11HT HE TA/THMAX,UX,1HY,4X,7hY 


*,3F 
Hl»« 
/5X, 
/SX, 
NSTT 
nGAM 

f,HW  A 

/SX, 

hAL 

OH 

I  F-S 
/S«, 

OROE 

Y,SE 

SX,2 
/5X, 
7.3) 
SX,1 

WFI 

,2FH 
/SX, 
Y,SF 

^x,5 


9.3) 
x,21 

1  1HA 

?6Ht: 

Y  Ra 
- , 

VELE 
rtMGt 
F-I.E 
DEGK 
PACI 
3SHT 
R  =, 
13.5 

yHTH 
?8mL 


HTUkRET  ANALYSIS  I NPljT/ /5X , 5HT I TL E /5X , 20 AU ) 
ER0-OPTICS/5X, Johmach  NUMBER,  am4ch 
xifcRNAl  DENSITY  RATION,  OEnRTO     = ,  F  e> .  3/5X  ,  3oh  i  n 
T  1 0,  TDENftT      s,F6,3/5X,3bHPRESSl)WE-OENSI  TY  txP 

Fb.3/5x# J&HPHASE  distortion  constant,  a*prim  =  ,e 

NGTH,  HAvtL  stE.H.4) 

OMETRY/5X,«?7HFUSELAGE  RADIUS,  RFUS       =,F7.3/5x, 

N&Tn,         =,F7,3/5X,27hTURRET  hAiF-AnGLE,  THMaX 

EES/SX,27HTURRET  HEIGHT  FACTOR,  EPS  s,F7,3/5X,27H 

NG,  ACL   =,F7.3) 

UKRET  POLYNOMIAL  SHAPE  C OE F I C I E N T S /5 X , 24HX -0  I W t C T 

I5/5X, 1 IhCOEFiCiEnTS) 

) 

ETA-niRECTIOW,  ORDER  = ,  I  5/S X , 1 1 HCUEF I C I ENT S ) 

UcATlQN  OF  CENTER  OF  M  I  RR0R/5X , 6hXM    =  ,F7.3,5x,t> 


7HHEAM  ORIENT AT10NS/5X, 18H8EAM    PHI    GaMMa,4X, 

GHT  ) 

.2,2FB.3) 

35HPHASE  DISTORTION  CALCULATION  P0INTS/5X , 6H ANGLES ) 

10.3) 

HRAUII  ) 


1510 
15<f0 
1530 
1540 
lSbO 
lbtoO 
1570 
15t*0 
1590 
1600 
1610 
lt>20 
loiO 
16^0 
lbbO 
1660 
le>70 
1680 
1690 
1  700 
1710 
1720 
1730 
1740 
17bO 
1760 
1770 
1  700 
1790 
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subroutine  tRaP2n 


SEPT.  77 


IN 


OU 


USA 


JO 


20 


SUB» 
ROUT 

BEG.I 
BY  G 
NAVA 
PUT 
IGOT 

A 
B 
N2 


FX 

TPUT 
IGOT 

X 

FX 
GE 
DO  2 
N2  =  2 
IGOT 
CALL 
IF(I 
FX  = 
GO  T 
CONT 
SOLU 


OUTlNp  t 
INE  Tn  p 
NING  wIT 
.  N  .  Y  * fJ 
L  POSTr,» 


0  = 


CiLC 

Irot 

LnwF 
Uppf 

N||M« 

If  T 
Op  p 
f'(  XI 

(tgo 


0  = 


0  I 


10 


20 
30 


CjIC 

CHL 
x-va 

EfX) 

K  IS 

=  _1  » 
**( 1-1) 

0  =  0 

TRAP?(f 
GOTO.po. 

F(X) 
0  10 
IMUE 
TION  TS 


RAP2N  CIGOTO, A,B,N2, X,FX) 

ERFORM  TR4PEZOIDAL  RULE  INTEGRATION  FOR  F(X)2N, 

H  F(X)N. 

derrlaats  nov.,  1976 

aquate  school,  monterey,  calif, 

ulation  parameter,  initially  call  trap2^  with 

0  =  0. 

r  bound  on  Integration, 

r  bound  un  integration. 

ER  OF  INTERVALS  USED  in  THIS  SOLUTION.   N2  =  1 
NTEGRATIUN  IS  JUST  BEGINING,   OTHERWISE  N2  =  2*N 
REVIOUS  SOLUTION. 
N  ON  FORST  CALL  (IGOTO=0)  AND  F(X)  on  subsequent  calls 

ulation  control,   if  tgoto.ne.o,  calculate  F(xj  and 
again,   jf  jgoto=0  on  return,  integration  is  complete 

lue  for  new  function  evaluation  (if  igoto.ne.o) 

2n  if  ig0t0=0.   this  is  final  solution. 
total  number  of  trapezoidal  solutions  desired. 

K 


IGOTC, A,B,N2,X,FX) 
0)  GO  TO  20 


IF  (IGOTO.n 

Constant. 

H=(B-A)/F!  oA 

FNrO, 

At  =  l. 

A2=l. 

IF  (N?.GT'#n 

SPECIAL  C»SF 

AlsH 

A2=,5 

X  =  A 

IG0T0=1 

RETURN 

GENERAL  CaSE 

FN1=.5*FX.A1 

I=-l 

1  =  1*2 

IF  (I.GT.N2) 

X=A+FLOATfi) 


COMPLETE, 
10,20, 40 
T(N2) 


GO  TO  20 
,  1  INTERVAL, 


,  N2.GE.1 


GO  TO  50 

»H 
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70 
80 
90 
100 
110 
120 
130 
140 
ISO 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
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280 
290 
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320 
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340 
350 
3oO 
370 
380 
390 
400 
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460 
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460 
490 
500 


225 


SUBROUTlNp  TRAP2* 


SEPT.  77 


IG0T0=2 

RETURN 
«0  FNsFN+FX 

GO  TO  30 
50  FN=A2*FN 

FX=Fn1 +  FN*h 

1GOTO=0 

RETUHN 

END 


510 
5^0 
5i0 
540 
550 
5o0 
570 
560 
590 
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subroutine  xrtpob 


SEPT,  77 


IN 


ou 


NO 


SUB 
ROU 
BY 
NAV 
PUT. 
XM 
EPS 
PHI 

Gam 

WHO 

R3 

ETA 
TPUT 

x 

Y 
Z 

R 

THE 
TE  - 


ROUTINp  XRTPOB  (XM, £PSM, PHI, GAMMA, RHO, RB, ETA, X,R, THfc.TA,Y,Z) 
TINE  Tn  CALCULATF  COORDINATES,  X,R,THETA  OF  A  POINT  ON  A  BEAM, 
G.  N,  VANOfRPLAATS  NOV.,  1976 

AL  POSTGRADUATE  SCHOOL,  MONTEREY,  CALIF. 


M 
1A 


y-location  of  center  of  mirror, 
7. location  of  center  of  mirror, 
azmuth  angle  measured  from  positive  x-axis. 

FI.fVaTION  ANGLE  MEASURED  FROM  X-Y  PLANE, 

DISTANCE  ALUNG  BEAM, 

RADIAL  DISTANCE  FROM  CENTER  Of    BEAM, 

ANGULAR  LOCATION  MEASURED  FROM  LINE  IN  THE  *■ 


Y  PLANE. 


TA 
ALL 


:  y. CYLINDRICAL  AND  CARTISTAN  COORDINATE. 
!  Y-CARTISlAN  COORDINATE. 
:  7_CARUSlAN  COORDINATE. 

:  RADIAL  LOCATION  TO  POINT  FROM  X-AXIS, 
:  CIRCUMFERENTIAL  LOCATION  OF  POINT  FROM  Z-AXIS, 
ANGLES  ARE  IN  REOIANS, 


RB#SIN(ETA).SIN(PHI)  + 


Constants'. 
SNPssIN(Phi) 

CNP  =  COS(PMn 

SNG=SIN(GiMMA) 

CNG=COS(GamMA) 

Sne=SIN(Eti) 

CNE=COSfETAl 

CARTISIAN  coordinates, 

X  =  XM  -  PHr>*COS(GAMMi  )  «COS(PHI  ) 

RB*C0S(ET4)»SIN(GAMMA)*C0S(PHI) 

X=XM-RHO*rNG*CNP-RB*(SME*SNP-CNfc*SNG*CNP) 

Y    =    RHO*CoSfGAMMA)*SlN(PHl )     -    RB*S I N ( E T A ) *COS ( PH I ) 

RB*COS(ETA1*SlNfGAMMA)*SlN(PHlj 

Y=RHO*CNG*SNP-RB*(SNt*CNP+CNE*SNG*SNP) 

Z     =     EPSM     \     RHO*SIN(GAMMA)     +     R 8 *COS ( E T A ) *C OS ( G A MM A ) 

ZsEPSM  +  RHmSNG  +  RB*CNE*CNG 

POLAR  COOpniNATES. 

X  r  X. 

R  s  SORT(v**2+Z**2) 

R=SGRT(Y*«£+Z**2) 

THETA  =  AoCTAN(-Y/Z)  . 

GUARD  AGAtnST  ZFRO  DIVIDE. 

IF  (ABS(Z).LT, t.OE-6)  Z=t,0E-6 

Y7=ABS(Y/7) 

Theta=ataM(yZ) 

angle  grt*tfr  than  pi/2, 

IF  (Z.LT.n.)  THETAaJ, l 4 1 5927-THE T a 

NEGATIVE  ANGLE. 

IP  (Y.GT.o.)  THETAs-THETA 


10 
20 
30 
40 
50 
oO 
70 
BO 
90 
1  UO 
110 
120 
140 
1  41  0 
150 
loO 
1  70 
180 
19  0 
200 
210 
220 
230 
240 
250 
260 
270 
2H0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
4t>0 
470 
480 
490 
500 
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Si/BROUTINf    xRTPOB 


SEPT.     77 


RETURN 

End 


510 

5cJ0 
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SUBROUTINp  ZERN 


SEPT.  77 


SUBROUTlNp  7ERN(R,Ri ,R2, Tl ,T2,AZ, Al ,A2, A3,A)  10 

DIMENSION  4(  10)#Z( 10)  20 

C      rtOUTlNfc  Tn  CALCULATE  OPTICAL  PROPERTIES  OF  PHASE  DISTORTION  IN  30 

C      T^RMS  OF  7fRnICKE  POLYNOMIALS.  40 

C       8Y  G.  N,  vanOFRPLAaTS                                  MAY,  1977.  50 

C     naval  postgraduate  school,  monterfy,  calif,  oo 

C       PHASE  DISTORTION  IS  ASSUMED  OF  Thf  FORM  aZ  ♦  A1*R  +  A2*T  t  A3*R*T  70 

C      *HERE  R  =  R4DIUS  and  T  =  ThETA  In  Radians,  tfo 

c  — -  Input.  90 

C      R  a  BEAM  padIhS.  100 

C       «1,  Tl  =  i'owER  LIMITS  OF  INTEGRATION,  110 

C      «2,  T?  =  npPER  LIMITS  OF  INTEGRATION,  120 

c     az,  ai,  a?(  A3  s  polynomial  coefficients.  i 30 

C      A  =  VECTOR  nF  ZERNICf<.E  COEFFICIENTS,   ON  FIRST  CALL  TO  ZERN  A  MUST  140 

C          BE  ZERO.  150 

C  ----  OUTPUT,  160 

C       As  UPDATpn  VECTOR  OF  ZERNICKE  COEFFICIENTS,  170 

C  lttO 

DO  20  I=l,o  190 

GO  TO  (21 ,2?. 25, 24), I  200 

21  CALL  ZINTf p,Ki , Tl , AZ, Ai , A2» A3.Z)  210 
SlGNsl.  220 
GO  TO  25  230 

22  CALL  ZINT'fR,Ri  ,T2,AZ,At  ,A2,A3,  Z)  240 
SlGNr-1,  250 
GO  TO  25  260 

25     CALL  ZINTfR,R2, Tl, AZ, Al,A2, A3,Z)  270 

SlGNs-l,  280 

GO  TO  25  290 

24  CALL  ZINT'fR,R2,T2,AZ,Al,A2,A3,Z)  300 
SlGN=i.  310 

25  CONTINUE  320 
DO  30  Jst.iO  530 

30     Af J)=A(J)+siGN*Z(J)  340 

20     CONTINUE  350 

RETURN  360 

END  370 
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SUBROIlTINp    zlNT 


SEPT.  77 


SUBROUTINE  7lNT(CAPR#R»THETA,AZ#Al»A2,A3rZ) 

DIMENSION  zflO) 

ROUTINE  To  f^aLUaTe  INTEGRAL  OF  ZERNICKE  POLYNOMIAL  TIMES  PHASE 

DISTORTION  AT  R  ANy  TheTa. 

BY  G,  N.  VANOERPLAATS  MAY,  1977. 

NAVAL  POSTGRADUATE  SCHOOL,  MONTEREY,  CALIF. 


Const 

CR2  =  C 
CR3  =  C 
CR4  =  C 
K2  =  R* 
R3sR? 
R4  =  R2 
RS  =  R* 
Rb  =  R3 
T?=TH 
ST  =  SI 
ST2  =  S 
ST3  =  S 
S2T=S 
S3T  =  S 
CT=CO 
CT2  =  C 
CT3  =  C 
C2T=C 
C3T5C 
PI  =  3. 
SOPIs 

Z(l)  = 

TILT. 
Z(2)  = 

*  (CR2 
Z(3)  = 

*  (cR2 

FOCUS 
Z(a)  = 

*  R*<a 
ASTIG 
Z(5)  = 

*  (THE 
Z(6)  = 

*  (THE 
COMA, 
8l  =  .2 
t>2=,2 
Z(7)  = 

*  27.* 
Z(8)s 

*  27.* 


ANTS'. 

APR*r 

R2*Ca 

R2*Cq 

P 

*R 

*R2 

RU 

*R3 

ETA*t 

N  (  THp 

T*ST 

T*ST? 

IN(2' 

IN(3. 

S(THr 

T*CT 

T*CT? 

OSf2' 

OS(i' 

1  aiSo 

SQPTf 

H2*Tm 

2.*«3 
♦SQPt 
-2.*o 

*SQPt 

3.U&U 
1  +  .5. 

MAT  Is 

2.Uao 
T**S? 
2,uao 
TA*St 

*AZ  +  a 
*A2+» 

^.|i^lK 

TheTa 
THETA 


4PK 

PR 

2 


hFTa 
TA) 


♦THFTA) 
*THFT A) 
TA) 


*THETA) 

♦THETA j 

27 

PD 

ETA. ( ,5«A 


ZtAl*R/3.tTHETA*(.25*A2  +  A3*R/ft.))/(CAPR*SfJPn 
«(ST*(AZ/3.*,25*R*Al)+(CTtTHETA»ST)*(A2/3,+.2b*A3*R))/ 
♦.25*Al*R)*CT-(ST-THETA*CT)*(A2/3.+.2b*A3*R))/ 


1 
3.((AZ/3. 

) 

ml6*R2«T 
a3*THETa) 

M. 
/4*97*R4*( 

T+.2S*C2T 

Uft97«Ra* ( 
2-.S*THET 

1 *R/6. 
3*R/b, 
u?7»R5*(B 
*ST*3. *CT 
q271  *R<3*( 
*CT+3.*ST 


HETA*(,2S*(H2-CR2)*(AZt.5**2*THETA)t 
*(,2*h2-cR?/0.))/(SQPI*CR3) 

.5#(.2S*AZf.2*Al*R).S2T+,S*(.25*A2+.^**3*R)* 
)  )/(SQPI*cRJ) 

ST2*(.25*aZ*.2*A1»R)+(,25*A2*.2*A3*R)* 
A*,25«S2T) )/(SOPI*CR3) 


l*(ST*(CT2+2.)/3.-ST3)+n2*(3.*THFTA*S3T*C3T* 
-3h.*THETA«sr3-12.*cT*ST2)/36,)/CS(JPI*CR<4) 
Bl*(CT3-CT»(ST2+2.)/3,)+R2*(3,»rHETA*C3r-S3T' 
♦i6.*THETA*CT3-12.*ST»CT2)/3b.)/(SNPI.CRa) 


10 
20 

30 
ao 
50 

GO 

70 
BO 
90 
100 
1  10 
120 
1  30 
140 
150 
loO 
1  /0 
1  BO 
190 
200 
210 
220 
230 
240 
2S0 
2b0 
^70 
280 
290 
300 
S10 
320 
330 
340 
550 
560 

370 

390 
400 
410 
420 
430 
4  40 
4  50 
4t>0 
4  70 

4«0 
490 
500 
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APPENDIX  C 
DATA  FORMS 
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COPES   DATA 


DATA  BLOCK  A 


TITLE 


FORMAT 


20A4 


DATA  BLOCK  B 

+ 

$ 

COMMENT 

NCALC 

NDV 

NSV 

N2VAR 

IPNPUT 

IPSENS 

IP2VAR 

FORMAT 

**,! 

8110 

DATA  BLOCK  C  -  OMIT  IF  NDV  =  0 

+ 

$ 

1  COMMENT 

IPRINT 

ITMAX 

ICNDIR 

NSCAL 

ITRM 

LINOBJ 

NACMX1 

NFDG 

|  FORMAT 

* 

8110 

DATA  BLOCK  D  -  OMIT  IF  NDV  -  0 

+ 

$ 

COMMENT 

FDCH 

FDCHM 

CT 

CTMIN 

CTL 

CTLMIN 

THETA 

PHI 

FORMAT 

* 

8F10 

DEL FUN 

DAB FUN 

FORMAT 

* 

2F10 

DATA  BLOCK  E  - 

OMIT  IF  NDV  = 

0 

+ 

$ 

COMMENT 

NDVTOT 

IOBJ 

SGNOBJ 

FORMAT 

* 

2110, F10 

DATA  BLOCK  F  -  OMIT  IF  NDV  =  0 


$ 

COMMENT 

VLB 

VUB 

X 

SCAL 

FORMAT 

4F10 
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COPES  DATA  CONT. 


DATA  BLOCK  G  -  OMIT  IF  NDV  =  0 


$ 

COMMENT 

NDSGN 

IDSGN 

AMULT 

FORMAT 

2110, F19 

DATA  BLOCK  H  - 

-  OMIT  IF  NDV  =  0 

+ 

$ 

COMMENT 

NCONS 

FORMAT 

* 

110 

DATA  BLOCK  I  -  OMIT  IF  NDV  =  0  OR  NCONS  =  0 


$ 

COMMENT 

ICON 

JCON 

LCON 

FORMAT 

3110 

$ 

COMMENT 

BL 

SCAL1 

BU 

SCAL2 

FORMAT 

4F10 
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COPES  DATA  COOT. 


DATA  BLOCK  I  -  CONT, 


' 1 — 

■ 


DATA  BLOCK  J  -  OMIT  IF  NSV  =  0 


$ 

COMMENT 

NSOBJ 

FORMAT 

110 

$ 

COMMENT 

NSN1 

NSN2 

NSN3 

NSN4 

NSN5 

NSN6 

NSN7 

NSN8 

FORMAT 

8110 

DATA  BLOCK  K  -  OMIT  IF  NSV  =  0 


$ 

COMMENT 

ISENS 

NSENS 

FORMAT 

2110 

$ 

COMMENT 

SNS1 

SNS2 

SNS3 

SNS4 

SNS5 

SNS6 

SNS7 

SNS8 

FORMAT 

8F10 

+ 

$ 

COMMENT 

ISENS 

NSENS 

FORMAT 

* 

1 

2110 

+ 

$ 

COMMENT 

SNS1 

SNS2 

SNS3 

SNS4 

SNS5 

SNS6 

SNS7 

SNS8 

FORMAT 

* 

8F10 
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COPES  DATA  -  CONT, 


] 

3ATA  BLOCK  K  -  CONT. 

+ 

S 

COMMENT 

I  SENS 

NSENS 

FORMAT 

* 

2110 

+ 

S 

COMMENT 

SNS1 

SNS2 

SNS3 

SNS4 

SNS5 

SNS6 

SNS7 

SNS8  . 

FORMAT 

* 

8F10 

+ 

3 

COMMENT 

I  SENS 

NSENS 

FORMAT 

* 

2110 

+ 

S 

COMMENT 

SNS1 

SNS2 

SNS3 

SNS4 

SNS5 

SNS6 

SNS7 

SNS8 

FORMAT 

* 

8F10 

DATA  BLOCK  L  -  OMIT  IF 

N2VAR  =  0 

+ 

$ 

COMMENT 

N2VX 

M2VX 

N2VY 

M2VY 

FORMAT 

* 

4110 

DATA  BLOCK  M  - 

OMIT  IF  N2VAR  =  0 

+ 

$ 

COMMENT 

SZ1 

NZ2 

NZ3 

NZ4 

NZ5 

NZ6 

NZ7 

NZ8 

FORMAT 

* 

8110 

DATA  BLOCK  N  - 

-  OMIT  IF  N2VAR  = 

0 

+ 

$                                              ,...,„„„ 

COMMENT 

1  X1 

X2 

X3 

X4 

X5 

X6 

X7 

X8 

FORMAT 

* 

8F10 

— 

DATA  BLOCK  0  ■ 

-  OMIT  IF  N2VAR  = 

»  0 

+ 

s 

COMMENT 

Yl 

Y2 

Y3 

Y4 

Y5 

Y6 

Y7 

Y8 

FORMAT 

* 

8F10 

.  ,  _ 

DATA  BLOCK  P 
END     | 

END 


FORMAT 
3A1 
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LASER  TURRET  ANALYSIS  DATA 


DATA  BLOCK  A 


TITLE 


FORMAT 


20A4 


DATA  BLOCK  B 

AMACH 

DENRTO 

TDENRT 

|  DENGAM 

AKPRLM 

WAVEL 

1  FORMAT 

* 

6F10 

DATA  BLOCK  C 


RFUS 

AL 

THMAX   1  ACL 

EPS 

I  FORMAT 

5F10 

DATA  BLOCK  D 


MAXK 

MAXP 

NXBC 

NTHBC 

FORMAT 

4110 

DATA  BLOCK  E 


ABARO 

A3AR1 

ABAR2 

ABAR3 

ASAR4 

A3AR5 

A3AR6 

ABAR7   g  FORMAT 

8F10 

DATA  BLOCK  F 


X 

Y3C 

YPBC 

1  FORMAT 

1   3F10 

I 

f 

I 

DATA  BLOCK  G 


3BAR0 

B3AR  1 

BBAR2 

BBAR3 

3BAR4 

B3AR5 

BBAR6 

BBAR7 

FORMAT 

8F10 

DATA  BLOCK  H 


THETA 

Y3C 

YPBC 

FORMAT 

3F10 
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LASER  TURRET  ANALYSIS  DATA  -  CONT. 


DATA  BLOCK  I 


EPSM 


XM 


FORMAT 


2F10 


DATA  BLOCK  J 


NETAI 

NRBI 

FORMAT 

2110 

DATA  BLOCK  K 


ETA1 

ETA2 

ETA3 

ETA4 

ETA5 

ETA6 

ETA  7 

ETA8 

FORMAT 

8F10 

DATA  BLOCK  L 


RBI 

RB2 

RB3 

RB4 

RE  5 

RB6     |  RB7 

RB8 

FORMAT 

8F10 

DATA  BLOCK  M 


NBEAM 

FORMAT 

110 

DATA  BLOCK  N 


PHI 

GAMMA 

AMACHI 

WGHT 

FORMAT 

4F10 

i 
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